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The Woz Wonderbook 

Introduction 

A compendium of notes, diagrams, articles, instructions and code that 
describes the Apple ][ computer and how to program it. 


What is the Woz Wonderbook? 

The Woz Wonderbook was pulled together from Steve Wozniak's file drawers in 
the Summer and Fall of 1977 and served as the key reference describing the 
Apple ][ for Apple's own employees. The Wonderbook served as a primary source 
for the first real Apple ][ manual, the Red Book, published in January 1978. 
Apple ] [ sales were increasing since its introduction at the West Coast 
Computer Fair in April 1977 and Woz and a team at Apple used the Wonderbook 
to bridge the gap in documentation as Apple and Steve Jobs realized they had 
to create a more professional product and manuals. There was only one Woz 
Wonderbook in the Apple library. The Woz Wonderbook at the DigiBarn was one 
of only a few copies made of this master by Apple employees at the time for 
internal use. 


Facts about the Woz Wonderbook 

Author : 

Steve Wozniak (www.woz.org <http://www.woz.org/) 

Document dates of record: 

September 20, 1977-November 15, 1977 


Owner : 

DigiBarn Computer Museum (www.digibarn.com), 

Curator Bruce Darner (http://www.damer.com/). 

DigiBarn's pages on the Wonderbook including this version can be found at: 
http : //www. di gi barn . com/ col lections /books /woz -wonder book/ 

This Wonderbook was discarded by Apple Computer Inc. (http://www.apple.com/) 
and recovered by Bill Goldberg who later donated it to the DigiBarn Computer 
Museum . 

This Wonderbook was scanned and resurrected in October 2004 into PDF format 
by David T Craig (shirlgato@cybermesa.com). 

This digital rendition of the Woz Wonderbook is available for non-commercial, 
educational and research purposes with the requirement to provide attribution 
and share-alike under the Creative Commons license provided on page 5. 

All other uses require the agreement of the DigiBarn Computer Museum (contact 
through www.digibarn.com). 
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The Woz Wonderbook 

Property Statement 


This Woz Wonderbook is the property of the DigiBarn Computer Museum which is 
offering it under the following Creative Commons License found on page 5. 

Under the terms of this license you must credit the DigiBarn Computer Museum, 
Steve Wozniak and Apple Computer, Inc. if whole or part of this Wonderbook is 
used for non commercial / educational or research purposes. All other uses 
require the agreement of the DigiBarn Computer Museum (contact through 
www . di gi barn . com) . 

We would like to acknowledge Bill Goldberg for providing us this copy of the 
Woz Wonderbook. 

The author of the Woz Wonderbook is Steve Wozniak. 
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/^creative 

^commons 

C O M M O N S D K K I) 

Creative Commons 

Attribution - Non Commercial - Share Alike 1.0 

You are free: 

* to copy, distribute, display, and perform the work 

* to make derivative works 

Under the following conditions: 



Attribution. You must give the original author credit. 



Noncommercial. You may not use this work for commercial purposes. 



Share Alike. If you alter, transform, or build upon this work, you may 
distribute the resulting work only under a license identical to this 
one . 

* For any reuse or distribution, you must make clear to others the 
license terms of this work. 

* Any of these conditions can be waived if you get permission from 
the copyright holder. 

Your fair use and other rights are in no way affected by the above. 
This is a human-readable summary of the Legal Code. 

This page is not part of the original Wonderbook 
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Disclaimer 

The Commons Deed is not a license. It is simply a handy reference for 
understanding the Legal Code (the full license) - it is a human- 
readable expression of some of its key terms. Think of it as the user- 
friendly interface to the Legal Code beneath. This Deed itself has no 
legal value, and its contents do not appear in the actual license. 

Creative Commons is not a law firm and does not provide legal services. 
Distributing of, displaying of, or linking to this Commons Deed does 
not create an attorney-client relationship. 

For the full legal code for this license see: 


http://creati vecommons .org/ licenses /by- nc-s a/2 .0/ 
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9/20/77 

Woz 


AUTO KLPFAT FOR APPLE -II MONITOR COMMANDS 

It is occasionally desirable to automatically repeat a MONITOR command 
or r . . ::ud sequence on the APPLE II computer. For example, flaky (inter- 
mittently bad) RAM bits in the $800 - $FFF address range ($ stands for hex) 
may be detected by verifying those locations with themselves using the MON- 
ITOR verify com:, and: 

*800<800. FFFVJ (no blanks) (^ is car ret) 

Because this problem is intermittent, multiple verifications may be 
necessary before the problem is detected. Typing the verify command over and 
over is a tedious chore which may not even catch the bug, particularly since the 
RAMS are not fully exercised while the user is typing. 

The APPLE - II MONITOR consnand input buffer begins at location $200 and 
is scanned from beginning to end after the user finishes the line by typing 
a carriage return. An index to the next executable character of the buffer 
resides in location $34 while any function is being executed. By adding 
the command '34:0' to the end of a MONITOR command sequence the user causes 
scanning to resume at the beg inning. Because the '34:0' comriand leaves 
the MONITOR in 'store 1 more, an ' N * command should begin the line. The 
following is an example of a command sequence which verifies locations 
$800 - $FFF with themselves, automatically repeating. 

*N800<800. FFFV 34:0 0* (0 is blank) 

(Note that the trailing blank is necessary for this feature to 
work properly) 

Multiple connarid sequences accepted by the Apple II MONITOR may also 
be automatically repeated. For example, the following command sequence clears 
all bits in the address range $400 - $5FF, verifies these locations with 
themselves, sets them all to ones, verifies them again, and repeats: 

* NT 00:0 0 N401 <400. 5FEM 400<400.5FFV 400:FF 0 N401 <400. 5FEM 

400<400. 5FFV 34:0 0 J 

0 is necessary blank 
is car return 

Because this example uses screen memory locations, it is observable on 
the display. The repeating command may be halted by hitting RESET. Since the 
cursor is only generated for keyboard entry, it will disappear while the ex- 
ample repeats. 
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The following section covers use of the Apple II mini- 
assembler only. It is not a course 'in assembly language 
programming. For a reference on programming the 6502 micro- 
processor, refer to the MOS Technology Programming manual. 
The following section assumes the user has a working know- 
ledge of 6502 programming and mnemonics. 

The Apple II mini -assembler is a programming aid ai’med 
at reducing the amount of time required to convert a hand- 
written program to object code. The mini-assembler is 
basically a look-up table for opcodes. Wit it, you can type 
mnemonics with their absolute addresses, and the assembler 
will convert it to the correct object code and store it in 
memory . 

Typing "F666G" will put the user in mini -assembler mode. 
While in this mode, any line typed in will be interpreted as 
an assembly language instruction, assembled, and stored in 
binary form unless the first character on the command line 
is a "$". 

If it is, the remainder of the line will be interpreted 
as a normal monitor command, executed , ^and control returned 
to assembler mode. To get out of the assembler mode, reset must be 
pushed. 

« If the first character on the line is blank, the assem- 
bled instruction will be stored starting at the address im- 
mediately following the previously assembled instruction. 

If the first character is nonblank (and not the line 

is assumed to contain an assembly language instruction pre- 
ceded by the instruction address (a hex number followed by 
a In either case, the instruction will be retyped 

over the line just entered in disassembler format to provide 
a visual check of what has seen assemble'. The counter that 
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keeps track of where tire next instruction will be stored is 
the pseudo PC (Program Counter) and it can be changed by many 
monitor commands (eg.'L 1 , 'T Therefore, it is advisable 
to use the explicit instruction address mode after every monitor 
command and, of'course, when the Tiny assembler is first 1 
entered . 

Errors (unrecognized mnemonic, illegal format, etc.) are. 
signalled by a "beep" and a carrot ("~") will be printed be- 
neath the last character read from the input line by the mini- 
assembl er. 

The mnemonics and formats accepted by the mini assembler 
are the same as those listed by the 6502 Programmers Manual, 
with the following exceptions and differences: 

1. All imbedded blanks are ignored, except inside 
addresses, 

2. All addresses typed in are assumed to be in hex 
(rather than decimal or symbolic). A preceding "$" 
(indicating hex rather than decimal or symbolic) is 
therefore optional, except that it should not pre- 
cede the instruction address). 

3. Instructions that operate on the accumulator have 
a blank operand field instead of "A". 

4. When entering a branch instruction, following the 
branch mnemonic should be the target of the branch. 

If the destination address is not known at the time 
the instruction is entered, simply enter an address 
that is in the neighborhood, and later re-enter the 
branch instruction with the correct target address. 

NOTE : If a branch target is specified that is out of 

range, the mini -assembler will flag the address as 
being in error. 
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5. The operand field of an instruction can only be 

followed by a comment field, which starts with a semi- 
colon Obviously, the Tiny assembler ignores 

the field and in fact will type over it when the line 
is typed over in disassembler format. This "feature" 
is included only to be compatible with future up- 
grades including input sources other than the key- 
board. 

6. Any page zero references will generate page zero 
instruction formats if such a mode exists. There 
is no way to force a page zero address to be two 
bytes, even if the address has leading zeroes. 


In general, to specify an addressing type, simply 
enter it as it would be listed in the disassembly. For 
formation on the disassembler, see the monitor section. 


1 n- 
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11-18-77 

WOZ 

APPLE-ri 2716 EROM ADAPTATION 
('DO' and ' D8 ' sockets) 

1. Remove the 'EO' ROM from its socket. On the top side of the board 
under the ' EO ' socket, cut the ROM pin 18 jumper trace. Then 
reinsert the ROM. This cut will isolate pins 18 of ROMS 'DO' 
and ’ D8 ' from pins 18 of the other ROMS. Reinsert the 'EO' ROM 
when done. 


'EO SOCKET' 



2. On the underside of the APPLE-II board, cut the traces connecting 
pin 20 to 21 of ROMs 'DO' and ’D3' only. 

3 On uhe underside , cut the trace going to pin 18 of ROM ’ D8 ' 

near the chip. Scrape solder resist off of approximately i inch 
of the remaining trace not still connected to pin 18. You may 
wish to tin it with solder since it will later be soldered to. 

4. (Underside) Connect pin 18 of ROM ' D8 ' to pin 12 of ROM ' EO ' 

( ground ) 

5. (underside) Connect pin 18 of ROM 'EO' to the trace which 
previously went to pin 18 of ROM ' D8 ' (and which should be 
pretinned if step 3 was followed). 
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page 2 

6. (underside) Connect pin 21 of ROM 'D8' to pin 21 of ROM 'DO', 
Then connect both of these to pin 24 of either ROM (Vcc)* 

7. Note that the INH control function (pin 32 on the APPLE-II 
I/O BUS connectors) will not disable the 2716 EROMs in the 
'DO' and ' D8 ' ROM slots since pin 21 is a pow/er supply pin 
and not a chip select input on the EROMs. 
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USING APPLE- 1 1 COLOR GRAPHICS 


The APPLE-II color graphics hardware will display a 40H 
by 48V. grid, each position, of which may be any one of 16 colors. 

The actual screen data is stored in IK bytes of system memory, 
normally locations $400 to $7FF. (A dual page mode allows the 
user to* alternatively display locations $800 to $BFF). Color 
displays are generated by executing programs which modify the 

i ' 

'screen memory'. For example, storing zeroes throughout loca- 
tions $400 to $7FF will yield an all-black display while storing 
$33 bytes throughout will yield an all-violet display. A number 
of subroutines are provided in ROM to facilitate useful operations, 


The x-coordinates range from 0 (leftmost) to 39 (rightmost) 
and the y-coordinates from 0 (topmost) to 47 (botto rrmost ) , If 
the user is in the mixed graphics/text mode with 4 lines of text 
at the bottom of the screen, then the greatest allowable y- 
coordinate is 39. 


The screen memory is arranged such that each displayed 
horizontal line occupies 40 consecutive locations. Additionally, 
even/odd line pairs share the same byte groups. For example, 
both lines 0 and 1 will have their leftmost point stored in 
the same byte, at location $400; and their rightmost point 
stored in the byte at location $427. The least significant 
4 bits correspond to the even line and the most significant 
4 bits to the odd line. The relationship between y-coordinates 
and memory addresses is illustrated on the following page. 
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COLOR GRAPHICS SCREEN MEMORY MAP 


Y-coordinate 


OOabcdef 

I i 


BASE ( leftmost ) address 


3 0 0 0 0 1 c 

d ■ 

l 

eababOOO 

gbAsh 


UBASLi 

LINE BASE 

Seconds 

address(hex) BASE ad< 

$0,1 

$400 

$800 

$2,3 

$480 

$880 

$4,5 

$500 

$900 

$6,7 

$580 

$980 

$8,9 

$600 

$AQ0 

$A,B 

$680 

$A80 

$C,D 

$700 

$B00 

$E,F 

$780 

$B80 

$10,11 

$428 

$828 

$12,13 

$4 A8 

$8A8 

$14 , 15 

$528 

$928 

$16,17 

$5A8 

$9A8 

$18 , 19 

$628 

$A28 

$1A, IB 

$6A8 

$AA8 

$1C, ID 

$728 

$B28 

$1E, IF 

$7A8 

$BA8 

$20,21 

$450 

$850 

$22,23 

$4D0 

$8D0 

$24,25 

$550 

$950 

$26,27 

$5D0 

$9D0 

$28,29 

$650 

$A50 

$2A , 2B 

$6D0 

$ADQ 

$2C, 2D 

$750 

$B50 

S2E , 2F 

$7D0 

$BD0 


Data byte 


XXXXYYYY 

odd even- 
line line 

data data 
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The APPLE- 1 1 color graphics subroutines provided in ROM 
use a few page zero locations for variables and workspace. You 
should avoid using these locations for your own program variables. 
It is a good rule not to use page zero locations $20 to $4F 
for any programs since they are used by the monitor and you may 
wish to use the monitor (for example, to debug a program) without 
clobbering your own variables. If you write a program in assembly 

language that you wish to call from BASIC with a CALL command, 
then avoid using page zero locations $20 to $FF for your variables. 

Color Graphics 

Page Zero Variable Allocation 
GBASL $26 

GBASH $27 

H2 $2C 

V2 $2D 

MASK $2E 

COLOR $30 

GBASL and GBASH are used by the color graphics subroutines 
as a pointer to the first (leftmost) byte of the current plot 
line. The (GBASL), Y addressing mode of the 6502 is used to 
access any byte of that line. COLOR is a mask byte specifying 
the color for even lines in the 4 least significant bits (0 to 15) 
and for odd lines in the 4 most significant bits. These will 
generally be the same, and always so if the user sets the COLOR 
byte via the SETCOLOR subroutine provided. Of the above variables 
only H2 , V2 , and MASK can be clobbered by the monitor, 
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Writing a color graphics program in 6502 assembly language 
generally involves the following procedures. You should be 
familiar with subroutine usage on the 6502. 

1. Set the video mode and scrolling window (refer to 
the section on APPLE-II text features) 

2. Clear the screen with a call to the CLRSCR (48-line 
clear) or CLRTOP (40-line clear) subroutines. If you 
are using the mixed text /graphics feature then call 
CLRTOP . 

3. Set the color using the SETCOLOR subroutine. 

4. Call the PLOT, HLINE , and VLINE subroutines to plot 
points and draw lines. The color setting is not 
affected by these subroutines, 

5. Advanced programmers may wish to study the provided 
subroutines and addressing schemes. When you supply 
x- and y-coordinate data to these subroutines they 
generate BASE address, horizontal index, and even/odd 
mask information. You can write more efficient programs 
if you supply this information directly. 
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SETCOL _su b routin e ( a d dress $F S 64) 

Purpose: To specify one of 16 colors for standard resolution 

plotting. 

Entry: The least significant 4 A-Rdg bits contain a color code 

(0 to $F). The 4 most significant bits are ignored. 

Exit: The variable COLOR (location $30) and the A-Reg will both 

contain the selected color in both half bytes, for 
example color 3 will result in $33. The carry is cleared. 

Example: (select color 6) 

LDA -r$6 

JSR SETCOL ( $F864 ) 

note: When sitting the color to a constant the following sequence 

is preferable. 

LDA "$66 

STA COLOR ($30) 


PLOT s ub routine (address $F800) 

Purpose: To plot a square in standard resolution mode using the 

most recently specified color (see SETCOL). Plotting 
always occurs in the primary standard resolution page 
(memory locations $400 to $7FF). 

Entry: The x-coordinate (0 to 39) is in the Y-Reg and the y- 

coordinate (0 to 47) is in the A-Reg.' 

Exit: The A-Reg is clobbered but the Y-Reg is not. The carry is 

cleared. A halfbyte mask ( $F or $FQ) is generated and 
saved in the variable location MASK (location $2E). 

Calls: GBASCALC 

Example: (Plot a square at coordinate ($A,$2C)) 


LDA 

f$2C 

Y-coordinate 

LDY 

#$A 

X-coordinate 

JSR 

PLOT 

( F800 ) 
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PLOT1 

subroutine (addre 

ss $FS0E ) 

Purpose: To plot squares in standard resolution mode with no 

Y-coordinate change from last call to PLOT. Faster 
than PLOT. Uses most recently specified COLOR (see 
SETCOL) 

Entry 

: X-coordinate in 

Y-Reg (0 to 39) 

Exit : 

A-Reg clobbered. 

Y-Reg and carry unchanged. 

Example: (Plotting two 

squares - one at (3,7) and one at (9,7)) 


LDY A$3 

X-coordinate; 


LDA #$7 

Y-coordinate 


JSR PLOT 

Plot (3,7) 


LDY A$9 

New X-coordinate 


JSR PL0T1 

Call PLOT1 for fast plot. 

HLINE 

subroutine (address $F819) 

Purpose: To draw horizontal lines in standard resolution 

mode. Most recently specified COLOR (see SETCOL) 
is used. 

Entry : 

The Y-coordinate (0 to 47) is in the A-Reg. The left- 
most X-coordinate (0 to 39) is in the Y-Reg and the 
rightmost X-coordinate (0 to 39) is in the variable 
H2 (location $2C). The rightmost x-coordinate may never 
be smaller than the leftmost. 

Calls: 

PLOT, PLOT1 


Exit : 

The Y-Reg will contain the rightmost X-coordinate (same 
as H2 which is unchanged). The A-Reg is clobbered. 

The carry is set . 

Example: Drawing a horizontal line from 3(left X-coord) to 

$1A (right X-coord) at 9 (Y-coord) 


LDY A$3 

Left 


LDA ASIA 

Right 


STA H2 

Save it 


LDA A$9 

Y-coordinate 


JSR HLINE 

Plot line 
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SCRN subro u tine (a ddress $F 87 1) 

Purpose: To sense the color (0 to $F) at a specified screen 

position. 

Entry: The Y-coordinate is in the A-Reg and the X-coordinate 

is in the Y-Reg. 

Exit: The A-Reg contains contents of screen memory at specified 

position. This will be a value from 0 to 15). The Y-Reg 
is unchanged and the 'N' flag is cleared (for unconditional 
branches upon return). 

Calls: GBASCALc’ 

Example: To sense the color at position (5,7) 

LDY ir$5 X-coordinate 

LDA £$7 Y-coordinate 

JSR SCRN Color to A-Reg. 


G B AS CALC subr ou tine (address $F847) 

Purpose: To calculate a base address within the primary 

standard resolution screen memory page corresponding 
to a specified Y-coordinate. Once this base address 
is formed in GBASL and GBASH (locations $26 and $27) 
the PLOT routines can access the memory location 
corresponding to any screen position by means of 
(GBASL), Y addressing. 

Entry: (Y-coordinate)/2 (0 to $17) is in the A-Reg, Note that 

even/odd Y-coordinate pairs share the same base address) 

Exit: The A-Reg is clobbered and the carry is cleared. GBASL 

and GBASH contain the address of the byte corresponding 
to the leftmost screen position of the specified Y-coord. 

Example: To access the byte whose Y-coordinate is $1A and whose 

X-coordinate is 7. 

LDA ;-$lA Y-coordinate 

LSR Divide by 2 

JSR GBASCALC Form base address. 

LDY ft$7 X-coordinate 

LDA (GBASL), Y Access byte 

Note' For an even/odd Y-coord pair, the even-coord data is 

contained in the least significant 4 bits of the accessed 
byte and the odd-coord data in the most significant 4. 
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ADDING COLORS TO APPLE-II HI-RES 
(nullifies warrantee) 

1. Remove the A PPL E- 1 1 PC bo ard f rom i ts enclosure 

(a) Remove the ten (10) screws securing the plastic top piece 
to the metal bottom plate. Six (6) of these are flat-head 
screws around the perimeter of the bottom plate and four (4) 
are round-head screws located at the front lip of the computer. 
All are removed with a phillips head screwdriver. Do not 
remove the screws securing the power supply or nylon posts. 

(b) Lift the plastic top piece from the bottom plate while 
taking care not to damage the ribbon cable connecting the 
keyboard to the PC board. This cable will have to be 
disconnected from one or the other. 

(c) Disconnect the power supply from the PC board. 

(d) Remove the “8 nut and lockwasher securing the center of the 
PC board. These will not be found on the earlier APPLE-II 

computers . 

(e) Carefully disengauge each of 6 nylon posts from the PC board. 

(7 on earlier versions). 

(f) Lift the PC board from the bottom plate. 
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2 . Above the board wiring method 


(a) Lift the following IC pins from their sockets. 

A8-1 

AS-6 

A8-13 

A9-1 

A9-2 

A9-9 


(b) Mount a 74LS74 (dual C-D flip-flop) and a 74LS02 (quad NOR 
gate) in the APPLE-II breadboard area (All to A14 region). 


(c) Wire the following circuit (* indicates that wiring is to 
a pin which is out of its socket). 
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FLOATING POINT PACKAGE 

The mantissa-exponent, or 1 float ing .point ' , numerical 
representation is widely used by computers to express values 
with a wide dynamic range. With floating point representation, 
the number 7.5 x 10 22 requires no more memory to store than 
the number 75 does. We have allowed for binary floating point 
Arithmetic on the APPLE-II computer by providing a useful 
subroutine package in ROM, which performs the common arithmetic 
functions. Maximum precision is retained by these routines and 
overflow conditions such as 'divide by zero’ are trapped for 
the user. The 4-byte floating point number representation is 
compatible with future APPLE products such as floating point 

BASIC. 

A small amount of memory in page zero is dedicated to the 
floating point workspace, including the two floating-point 
accumulators, FP1 and FP2 . After placing operands m these 
accumulators, the user calls subroutines in the ROM which 
perform the desired arithmetic operations, leaving results m 
FP1. Should an overflow condition occur, a jump to location 
$3F5 in RAM is executed, allowing a user routine to take appro- 
priate action . 


FLOATING POINT REPRESENTATION 




Exponent 


Signed Mantissa 
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1 . M a n tj ssa 

The floating point mantissa is stored in two's complement 
representation with the sign at the most significant bit (MSB) 
position of the high-order mantissa byte. The mantissa provides 
24 bits of precision, including sign, and can represent 24-bit 
integers precisely. Extneding precision is simply a matter of 

adding bytes at the low-order end of the mantissa. 

_128 

Except for magnitudes less than 2 ~ (which loibe precision) 
mantissas are normalized by the floating point routines to retain 
maximum precision. That is, the numbers are adjusted so that the 
upper two high-order mantissa bits are unequal. 

High-order Mantissa Byte 
| 01 . XXXXXX J Positive mantissa. 

10 . XXXXXX J Negative mantissa. 

oo.xxxxxxH 

7 " 7 Unnormalized mantissa, 

■ 11. XXXXXX j exponent = -128. 


2 . Ex p o nent . 

The exponent is a binary scaling factor (power of two) 
which is applied to the mantissa. Ranging from -128 to +127, 
the exponent is stored in standard two's complement representation 
except for the sign bit which is complemented. This representa- 
tion allows direct comparison of exponents since they are stored 
in increasing numberical sequence. The most negative exponent, 
corresponding to the smallest magnitude, -12$, is stored as $00 
($ means hexidecimal) and the most positive, +127, is stored as 
$FF (all ones) . 
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:ponent 

Stored 

As 

+ 1 

10000001 

($81) 

+ 2 

10000010 

($82) 

+ 3 

10000011 

($83) 

-1 

01111111 

( $7F ) 

-2 

01111110 

($7E) 

-3 

01111101 

($7D) 


The smallest magnitude whi&h can be represented is +2 



high low 


EXP MANTISSA 


The largest positive magnitude which can be represented 
128 _1 

$7F i $7F 1 ^ $FF | $FF | 

EXP MANTISSA 
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FLOATING POINT REPRESENTATION EXAMPLES 


Decimal 

Hex 


Hex 





Number 

Exponent 

Mantissa 




+ 3 
+ 4 
+ 5 
+ 7 
+ 12 

81 

82 

82 

82 

£3 

60 

40 

50 

70 

60 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

(1. 

(1, 

(1. 

(1. 

(1. 

Ip X 2 1 ) 
° 2 X 2 2 ) 
Olp X 2 2 ) 
11 * 2 2 ) 
1 0 “ , 2 3 , 

+ 15 

83 

78 

00 

00 

(1. 

m 2 x 2 3 

+17 

+20 

+60 

84 

84 

85 

44 

50 

78 

00 

00 

00 

00 

00 

00 

(1. 

(1. 

(1. 

0001 o x 2 
* 4 

01„ x 2*) 
A * 
. 111 2 x 2 

- 3 

81 

AO 

00 

00 




- 4 

81 

80 

00 

00 




- 5 

82 

BO 

00 

00 




- 7 

82 

90 

00 

00 




-12 

83 

AO 

00 

00 




-15 

83 

88 

00 

00 




-17 

84 

BC 

00 

00 




-20 

84 

BO 

00 

00 




-60 

85 

88 

00 

00 
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FLOATING POINT SUBROUTINE DESCRIPTIONS 
F COM PL su broutine (address $F4A4) 

Purpose:, FCOMPL is used to negate floating point numbers. 

Entry: A normalized or unnormalized value is in FP1 (floating point 

accumulator 1). 

Uses: NORM, RTLOG . 

Exit: The value in FP1 is negated and then normalized to retain 

i 

precision. The 3-byte FP1 extension, E, may also be altered 

but FP2 and SIGN are not disturbed. The 6502 A-REG is 

altered and the X-REG is cleared. The Y-REG is not disturbed. 

128 

Caution: Attempting to negate -2 will result in an overflow 

128 

since +2 is not representable, and a jump to location 
$3F5 will be executed, with the following contents in 
FP1 . 


FP1 : 

o ! 

$80 1 i 

r o i | ° 


... i 

XI 

1 

I s 

! J t 


Example: Prior to calling FCOMPL, FP1 contains +15. 

FP1 : ( $83 | $78 ; 0 J j 0 (+15) 

XI Ml 

After calling FCOMPL as a subroutine, FP1 contains -15. 

FP1 : $83 ' $88 . 0 ^ 0 ] (-15) 

XI Ml 
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F ADD subrout ine (a ddress SF46E) 

Purpose: To add two numbers in floating point form. 

Entry: The two addends are in FP1 and FP2 respectively. For 

maximum precision, both should be normalized. 

Uses: SWPALGN, ADD, NORM, RTLOG . 

Exit: The normalized sum is left in FP1. FP2 contains the addend 

of greatest magnitude. E is altered but SIGN is not. 

! 

The A-REG is altered and the X-REG is cleared. The 

Y-REG is not disturbed. The sum mantissa is truncated to 24 bits 

Caution: Overflow may result if the sum is less than -2 128 

128 

or greater than +2 -1. If so, a jump to location 

$3F5 is executed leaving 0 in XI, and twice the proper 
sum in the mantissa Ml. The sign bit is left in the 
carry, 0 for positive, 1 for negative. 

FP1 : 0 1 [ X . YYY . . . : 

■ J L-. ... _ i 

XI Ml 

(For carry=0 , true sum = +X.YYY... x 2* 28 .) 

Example: Prior to calling FADD, FP1 contains +12 and FP2 contains 

-5. 

FP1: | $83 1 $60 j 0 0 (+12) 

XI Ml 

FP2: $82 $B0 ' 0 0 5) 

X2 M2 

After calling FADD, FP1 contains +7 (FP2 contains +12). 
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FSUB sub rou t in e ( add ress $F 1 68 ) 

Purpose: To subtract two floating point numbers. 

Entry: The minuend is in FP1 and the subtrahend is in FP2 , Both 

should be normalized to retain maximum precision prior 
to calling FSUB, 

Uses: FCOMPL , ALGNSWP , FADD, ADD, NORM, RTLOG . 

Exit: The normalized difference is in FP1 with the mantissa trun- 

cated to 24 bits. FP2 holds either the minuend or the negate 
subtrahend, whichever is of greater magnitude. E is altered 
but SIGN and SCR are not. The A-REG is altered and the 
X-REG is cleared. The Y-REG is not disturbed. 

Cautions: An exit to location $3F5 is taken if the result is 

128 128 
less than -2 or greater than +2 -1, or if the 

I p O 

subtrahend is -2 

Example: Prior to calling FSUB, FP1 contains +7 (minuend) and 

FP2 contains -5 (subtrahend). 

FP1 : ! S82 1 | $70 ! | 0 . 0 (+7) 

XI Ml~ ' " 

FP2 : | $82 ; $B0 , 0 ! 0 ! (-5) 

X2 M2 ’ 

After calling FSUB, FP1 contains +12 and FP2 contains +7. 

FP1 : $83 I 

Xl~ 


$60 | | 0 1 | 0 | (+12) 
Ml ~ 
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FMUL subro utin e ( addr ess__$F48C ) 


Purpose: To multiply floating point numbers. 

Entry: The multiplicand and multiplier must reside in FP1 and 

IP2 respectively. Bothe should be normalized prior to 
calling FMUL to retain maximum precision. 

Uses: MD1, MD2 , RTLOG1 , ADD, MDEND. 


Exit: The signed normalized floating point product is left in 

fPl. Ml is truncated to contain the 24 most significant 
mantissa bits (including sign). The absolute value of the 
multiplier mantissa (M2) is left in FP2 . E, SIGN and SCR 
are altered. The A- and X-REGs are altered and the Y-REG 
contains $FF upon exit. 

Cautions: An exit to location $3F5 is taken if the product is less 

128 i o q 

than -2 or greater than +2 X -1. 

Notes: FMUL will run faster if the absolute value of the multi- 

plier mantissa contains fewer 'l's than the absolute value 
of the multiplicand mantissa. 

Example: Prior to calling FMUL, FPl contains +12 and FP2 contains 


-5. 


FPl 


f | r 

$83 | j 

$60 

l 0 



(+12) 



XI 

Ml 





FP2 : 

l 

$82 i . 

. . _j | 

$B0 ' 

i 


f “ u 

0 ! 

(- 5) 



■ X2 

M2 





After 

calling FMUL. 

, FPl 

contains 

-60 and 

FP2 contains 

FPl: 


$85 ( 

$88 n 

1 ° 

"“j 

r..° j 

(-60) 



XI ~ 

Ml ~ 





FP2 : 


$82 

$50 ^ 

! o 


r - . 

i 0 

[ 

(+ 5) 



X2 

M2 






Distributed under the Creative Commons License on page 5 




The Woz Wonderbook - 1977 -- DigiBarn Computer Museum - Steve Wozniak, Apple Computer Inc. 


EDI V sub routine ( ad dress_J$F4B2 ) 

Purpose: To perforin division of floating point numbers. 

Entry: The normalized dividend is in FP2 and the normalized 

divisor is in FP1. 

Exit: The signed normalized floating point quotient is left in 

FP1. The mantissa (Ml) is truncated to 24 bits. The 3-bit 
Ml extension (E) contains the absolute value of the divisor 
mantissa. MD2, SIGN, and SCR are altered. The A- and 
X-REGs are altered and the Y-REG is cleared. 

Uses: MD1, MD2 , MDEND . 

Cautions: An exit to location $3F5 is taken if the quotient is 

less than -2 128 or greater than +2 128 -1. 

Notes: MD2 contains the remainder mantissa (equivalent to the 

MOD function). The remainder exponent is the same as 
the quotient exponent, or 1 less if the dividend mantissa 
magnitude is less than the divisor mantissa magnitude. 

Example: Prior to calling FDIV, FP1 contains -60 (dividend) 

and FP2 contains +12 (divisor). 


FP1 : 



$88 j 

1 ° [ 

Ml 




(-60) 


FP2: 

After 
FP1 : 


“i ; I 

j $83 j | $60 
Xl~ Ml 



calling FMUL, FP1 contains 

j $82 J j $B0 ~| P 0 

XI Ml 



(+ 12 ) 


-5 and M2 contains L 


(- 5) 
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F LOAT ■ ; u L ro u t ine (a ddres s $F 451 ) 

Purpose: To convert integers to floating point representation. 

Entry: A signed (two's complement) 2-byte integer is stored in 

Ml (high-order byte) and Ml+1 (low-order byte). MU-2 
must be cleared by the user prior to entry. 

Uses: N0RM1. 

Exit: The normalized floating point equivalent is left in FP1 . 

E, FP2 , SIGN, and SCR are not disturbed. The A-REG contains 
a copy of the high-order mantissa byte upon exit but the 
X- and Y-REGs are not disturbed. The carry is cleared. 

Notes: To float a 1-byte integer, place it in Ml+1 and clear Ml 

as well as Ml+2 prior to calling FLOAT. 

FLOAT takes approximately 3 msec, longer to convert 
zero to floating point form than other arguments. The 
user may check for zero prior to calling FLOAT and increase 
throughput . 

* 


* LOW-ORDER INTEGER BYTE IN A-REG 

* HIGH-ORDER BYTE IN Y-REG 

* 


85 

FA 

X FLOAT 

STA 

Ml + 1 


84 

F9 


STY 

Ml 

INIT MANT1. 

AO 

00 


LDY 

;-$0 


84 

FB 


STY 

Ml + 2 


05 

D9 


ORA 

Ml 

CHK BOTH BYTES 

DO 

03 


BNE 

TOFLOAT 

’ FOR ZERO. 

85 

F8 


STA 

XI 

IF SO, CLR XI 

60 



RTS 


AND RETURN. 

4C 

51 F4 

TOFLOAT 

JMP 

FLOAT 

ELSE FLOAT INTEGER 


I— aa 
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LO A T c ontinued) 

Example: Float +274 ($0112 hex) 


Calling sequence 


A0 

01 


LDY 

#$01 HIGH-ORDER INTEGER BYTE 

A9 

12 


LDA 

#$12 LOW-ORDER INTEGER BYTE 

84 

F9 


STY 

Ml 

85 

FA 


STA 

Ml + 1 

A9 

00 


LDA 

o 

o 

85 

F8 


STA 

Ml+2 

20 

51 

F4 

JSR 

FLOAT 


Upon 

returning from FLOAT, FP1 contains the floating 


point representation of +274. 

“ ~i r ~ i ■— l i 

FP1: : $88 : [ $44 j j $80 j 0 J (+274) 

XI ~ Ml 
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FI X sub rout 1 ne (ad dress SF64Q) 

Purpose: To extract the integer portion of a floating pOint 

number with truncation (ENTIER function). 

Entry: A floating point value is in FP1 . It need not be normalized. 

Uses: RTAR. 

Exit: The two-byte signed two's complement representation of the 

integer portion is left in Ml (high-order byte) and Ml+1 

! * 

(low-order byte). The floating point values +24.63 and 
-61.2 are converted to the integers +24 and -61 respectively. 
FP1 and E are altered but FP2 , E, SIGN and SCR are not. 

The A- and X-REGs are altered but the Y-REG is not. 

Example: The floating point value +274 is in FP1 prior to calling 

FIX. 

FP1 : ! $88 j $44 $30~] 0 (+274) 

XI Ml 

After calling FIX, Ml (high-order byte) and Ml+1 
(low-order byte) contain the integer representation 
of +274 ($0112). 

FP1 : $8E J Q $ 0l] [ $12 j 0 

XI Ml 

Note; FP1 contains an unnormalized representation of 
+274 upon exit. 
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A U X I L L I A R Y SUBROUTINES. 


NORM_ts i j b r outine (ad dr es s $F463 ) 

Purpose: To normalize the value in FP1 , thus insuring maximum 

precision . 

Entry: A normalized or unnormalized value is in F.Pl. 

Exit' The value in FP1 is .normalized. A zero mantissa will 

exit with X1=0 ( 2 -128 exponent ) . If the exponent on exit 

is -128 (X1=0 ) then the mantissa (Ml) is not necessarily 

normalized (with the two high-order mantissa bits unequal). 

E, FP2 , SIGN, and SCR are not disturbed. The A-REG is 

disturbed but the X- and Y-REGs are not. The carry is set. 

0 

Example: FP1 contains +12 in unnormalized form (as . 0011^ x 2 ). 


FP1 


$86 

XI 


$oc ~! j o 

Ml 



(+ 12 ) 


Upon exit from NORM, FP1 contains +12 in normalized 

3 

form (as 1 . I 2 x 2 ) . 

FPl | $83 1 , $60 j 1^ 0 ] | 0 j (+12) 

XI " Ml* 


NOR M 1 sub ro u t i n e_ (add ress $F4 5 5 ) 

Purpose: To normalize a floating point value in FPl when it 

is known the exponent is not -128 (X1=0) upon entry. 
Entry: An unnormalized number is in FPl. The exponent byte 

should not be 0 for normal use. 

E ,\i t : The r realized value is in FPl . E , FP2, SIGN, and SCR 

are not disturbed. The A-REG i s altered but the X- and 
Y-Rid's are not. 
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ADD .su br out i ne ( address $F4 25) 

Purpose: To add the two mantissas (Ml and M2) as 3-byte integers ), 

Entry: Two mantissas are in Ml (through Ml + 2) and M2 (-through 


M2+2). They should be aligned, that is with identical 
exponents, for use in the FADD and FSUB subroutines. 

Exit: The 24-bit integer sum is in Ml (high-order byte in til, 

low-order byte in Ml+2). FP2 , XI, E, SIGN , and SCR are 
net disturbed. The A-REG contains the high-order byte of 
the sum, the X-REG contains $FF , and the Y-REG is not 
altered. The carry is the '25th' sum bit. 

Example: FP1 contains +5 and FP2 contains +7 prior to calling 


ADD. 


FP1 


$82 | i $50 


(+ 5) 


XI 


Ml 


FP2 


l 


$82 


$70 


0 


'1 


0 


( + 7) 


Upon exit, Ml contains the overflow value for +12. 
Note that the sign bit is incorrect. This is taken 
care of with a call to the right shift routine. 


? P1 


$82 I $C0 


0 


"1 


0 


(+ 12 ) 
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ABSVi'AP sub routine (a ddress $F437). 

Purpose: To take the absolute value of FP1 and then swap FP1 

with FP2 . Note that two sequential calls to ABSWAP 
will take the absolute values of both FP1 and FP2 
in preparation for a multiply or divide. 

Entry: FP1 and FP2 contain floating point values. 

Exit: The absolute value of the original FP1 contents are i n 

FP2 and the original FP2 contents are in FP1 . The least 
significant bit of SIGN is complemented if a negation 
takes place (if the original FP1 contents are negative), 
by means of an increment. SCR and E are used. The A-REG 
contains a copy of X2 , the X-I:EG is cleared, and the Y-REG 
is not altered. 

KT AR subroutine (address $F 4 7D ) 

Purpose: To shift Ml right one bit position while incrementing 

XI to compensate for scale. This is roughly the oppose ■ 
of the NORM subroutine. 

Entry: A normalized or unnormalized floating point value is in 

FP1 . 

Exit: The 6-byte field MANT1 and E is shifted right one bit 

arithmetically and XI is incremented by 1 to retain orooer 
scale. The sign bit of MANT1 (MSB of Ml) is unchanged. 

EP2, SIGN, and SCR are not distiarbed. The A-REG contains 
the least significant byte of E (E+2), the X-REG is cleared, 
and the Y-REG is not disturbed. 
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RTAR subro u tine (continued) 

Caution: If XI increments to 0 (overflows) then an exit to 

location $3F5 is taken, the 'A-REG contains the high-order 
MANT1 byte, Ml, and XI is cleared. FP2, SIGN, SCR, 
and the X- and Y-REG's are not disturbed. 

Uses: RTLOG 

Example: Prior to calling RTAR, FP1 qontains the normalize^ 

value -7. 


FP1 

$83 


| $A0 


0 


0 


XI 

Ml 




After calling RTAR, FP1 contains the unnormalized 
value -7 (note that precision is lost off the low-order 
end of Ml ) . 


FP1 


$84 

XI 


$D0 

Ml 



(-7) 


Note : 


Ml sign bit is unchanged. 


Distributed under the Creative Commons License on page 5 


Page 0096 of 0213 




The Woz Wonderbook - 1977 -- DigiBarn Computer Museum - Steve Wozniak, Apple Computer Inc. 

RTLOG subroutine (address $F480) 

Purpose: To shift the 6-byte field MANT1 and E one bit to the 

right ’(toward the least significant bit). The 6502 
carry bit is shigted into the high-order Ml bit. 

This is useful in correcting binary sura overflows. 

Entry: A normalized or unnormalized floating point value is in 

FP1. Thp carry must be cleared or set by the user 
since it is shifted into the sign bit of Ml. 

Exit: Same as RTAR except that the sign bit of Ml is not pre- 
served (it is set to the vlaue of the carry bit on entry). 

Caution: Same as RTAR. 

Example: Prior to calling RTLOG, FP1 conatins the normalized 

value -12 and the carry is clear. 


|~ $83 


(- 12 ) 


After calling RTLOG, Ml is shifted one bit to the right 
and the sign bit is clear. XI is incremented by 1. 



Note: The bit shifted off the end of MANT1 is rotated 

into the high order bit of the 3-byte extension 
E. The 3-byte E field is also shifted one bit 


to the 


right . 
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RTLOG1 subroutine (address $F484) 

Prupose: To shift MANT1 and E right one bit without adjusting 

XI. This is used by teh multiply loop. The carry 
is shifted into the sign bit of MANT1 . 

Entry: Ml and E contain a 6-byte unsigned field. E is the 

3-byte low-order extension of MANT1 . 

Exit: Same as RTLOG except that XI is not altered and an overflow 

exit cannot occur. 

MD2 subroutine (address $F4E2) 

Purpose: To clear the 3-byte MANT1 field for FMUL and FDIV, 

check for initial result exponent overflow (and 
underflow), and initialize the X-REG to $17 for loop 
count ing . 

Entry: The X-REG is cleared by teh user since it is placed in 

the 3 bytes of MANT1 . The A-REG contains the result 
of an exponent addition (FMUL) or subtraction (FDIV). 

The carry and sign status bits should be set according 
to this addition or subtraction for overflow and under- 
flow determination. 

Exit: The 3 bytes of Ml are cleared (or all set to the contents 

of the X-REG on entry) and the Y-REG is loaded with $17. 

The sign bit of the A-REG is complemented and a copy of 
the A-aEG is stored in XI. FP2 , SIGN, SCR, and the X-REG 
are not disturbed. 

Uses: NORM. 

Caution: Exponent overflow results in an exit to location $3F5. 

Exponent underflow results in an early return from the 
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M D 2 su b rout i ne ( cont i nued ) 

calling subroutine (FDIV or FMUL) with a floating point 
zero in FP1. Because MD2 pops k return address off’ 
the stack, it may only be called by another subroutine. 
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1 

* 

£ S ******* ****** ******* 

7 

* 


* 

3 

* 

APPLE- 1 1 FLOAT I LG 

* 

4 

* 

PC INI ROUTINES 

* 

3 

* 


* 

6 

* 

COPYRIGHT 1977 EY 

* 

7 

* 

APPLE COMpfJ I ER INC. 

* 

o 

•_» 

* 


* 

9 

* 

ALL R I GH l 3 RESERVED 

* 

10 

* 


* 

1 1 

* 

S. WOZNIAK 

* 

12 

* 


* 


13 *•***•&*********-«■-»■■«■#*#•&■#•* 






14 

TITLE 

"FLOAT IN 

3 PC INI 

ROU TINES" 





15 

SIGN 

EPZ 

5F3 

( 





16 

X2 

EPZ 

SF4 






17 

M2 

EPZ 

SF5 






13 

XI 

EPZ 

3FS 

' 





19 

Ml 

EPZ 

5F9 






20 

E 

EPZ 

SFC 

( 





21 

OVLOC 

EQU 

33F5 





22 


URG 

3F425 


0 425 

13 



23 

ADD 

CLC 


CLEAR CARRY. 

L426 

A2 

02 


24 


LDX 

#32 

INDEX FOR 3 -BYTE ADD. ' 

1 423 

E5 

F9 


25 

ADD 1 

LDA 

Ml, X 


-42A 

75 

F5 


26 


ADC 

M2, X 

ADD A BYTE OF MAN 1 2 TO MAN f l. r 

r 42C 

95 

F9 


27 


STA 

Ml, X 

v 

r 42C 

CA 



23 


DEX 


INDEX TO NEXT MORE SI ON IF. BY 1 

~'F 

10 

17 


29 


EPL 

ADD1 

LOOP UNTIL DONE. 

1 

60 



30 


RTS 


RETURN ! 

- 432 

06 

F3 


31 

MDl 

ASL 

S I GN 

CLEAR LSB OF SIGN. 

-434 

20 

37 

F4 

32 


jsn 

ABSWAP 

ABS VAL OF Ml, THEN SWAP WITH 

-437 

24 

F9 


33 

ABSWAF' 

BIT 

Ml 

MAN 11 NEGATIVE? 

439 

10 

05 


34 


BF'L 

ABSWAP 1 

NO, SWAP WITH MAN 1 2 AND RETURN 

r 43B 

20 

A4 

F4 

35 


JSR 

FCOMPL 

YES, COMPLEMENT IT. 

43E 

E6 

F3 


36 


INC- 

SIGN 

I NCR SIGN. COMPLEMENT ING LSB.' 

-440 

33 



37 

ABSWAP 1 

SEC 


SE 1 CARRY FOR RETURN TO MUL/OI 

r 44 1 

A 2 

04 


33 

SWAP 

LDX 

#34 

INDEX FOR 4-BYTE SWAP. 

-‘443 

94 

FB 


39 

SWAP1 

STY 

E- 1 , X 

V. 

443 

E5 

F/ 


40 


LDA 

X 1 — 1 , X 

SWAP A BY IE' OF EXP/ MAN 11 WITH 

-’447 

E4 

F3 


41 


LDY 

X2-1, X 

EXP/MAN T2 AND LEAVE A COPY OF. 

r 449 

94 

F7 


a. 2 


STY 

X 1 — 1 , X 

MAN 11 IN E (3 BYlES). E+3 Ij2 

■44B 

f" C 

? 

(-3 


A 3 


STA 

X2-1, X 


"44D 

CA 



44 


DEX 


ADVANCE INDEX TO NEXT BYTE. 

r 44C 

DO 

F3 


45 


B NE- 

SWAP 1 

LOOP UNTIL DONE. '< 

-450 

60 



46 


STS 


RETURN 

r 451 

A? 

SE 


4? 

float 

LDA 

#3SE 

INIT EXF1 TO 14, 

•453 

Off 1 

ou 

T 3 


40 


STA 

XI 

THEN NORMALIZE TO FLOAT. C 

r 43G 

A 5 

F9 


49 

NORM1 

LDA 

Ml 

HIGH-ORDER MANT 1 BYTE. 

r 45 / 

C9 

CO 


50 


CMP 

#3C0 

UPPER TWO BITS UNEQUAL? 

•459 

30 

OC 


51 


BMI 

RTS1 

YES, RETURN WITH MAN 1 1 NORMAL. 

r 45B 

1^3 

FS 


52 


DEC 

XI 

DECREMENT EXP1. 

•450 

06 

PB 


53 


ASL 

Ml +2 


■f - 

26 

FA 


54 


POL 

Ml+1 

SHIFT MANT 1 <3 BYTES) LEFT. < 
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49 

F. M. , 10/3/1977 

■6 1 

26 F9 

35 

•/-. 3 ; 

AS F 8 

56 


DO EE 

57 

It, . . 

60 

c o 
_*o 


20 A4 F4 

59 

16B: 

20 7B F4 

60 

16E: 

A.S F4 

61 

*70: 

05 FS 

62 

172: 

DO F7 

63 

174 : 

20 25 F4 

64 

177 : 

50 EA 

65 

179: 

70 05 

66 

17B: 

90 C4 

67 



63 

17D 

A 5 F9 

69 

17F 

OA 

70 

100 

E6 FS 

71 

IS 2 

FO 75 

72 

IS 4 

A 2 FA 

73 

106 

76 FF 

74 

ICS 

ES 

75 

189 

DO MB 

76 

1SB 

60 

77 

ISC 

20 32 F4 

7S 

1SF 

65 FS 

79 

191 

20 E2 F4 

30 

194 

13 

31 

' CT 

20 S4 F4 

02 

. J 

90 03 

83 

49 A 

20 25 F4 

34 

49D 

8 3 

85 

49E 

10 1 5 

86 

4AO 

46 F 3 

87 

4A2 

90 BF 

o' o 

4A4 

33 

39 

4A5 

A2 03 

90 

4A7 

A 9 00 

91 

4A9 

F5 rs 

92 

4AB 

95 FS 

93 

4 AD 

CA 

94 

4 At 

DO F7 

95 

4b0 

FO C5 

96 

4B2 

20 32 F 4 

97 

4B5 

ES. FS 

93 

4B7 

20 E2 F 4 

99 

4EA 

38 

100 

4BB 

A2 02 

101 

4BD 

B5 F5 

102 

4BF 

F3 FC 

103 

•401 

43 

104 

4C2 

CA 

105 

'4 OS 

10 FS 

106 

■=■ 

A 2 FD 

107 

7 

63 

103 


PAGE' 



ROL 

Ml 

NORM 

LDA 

X 1 


BNE 

NORM 1 

RTS1 

RTS 


FSIJB 

JSR 

FOOMPL 

SWPALGN 

•JSR 

ALONSWP 

FADD 

LDA 

X 2 


CMP 

XI 


BNE 

SWPALGN 


JSR 

ADD 

ADDEND 

EVC 

NORM 


BVS 

RTLOG 

ALONSWP 

BOO 

SWAP 

* 

ELSE SHIFT RIGI! 

RT AR 

LDA 

Ml 


ASL 

A 

RTLOG 

INC 

XI 


BEQ 

OVFL 

RTL0G1 

LDX 

#sFA 

R0R1 

ROR 
I NX 

E+3, X 


BNL 

RTS 

ROR 1 

FMUL 

JSR 

MD1 


ADC 

XI 


JSR 

MO 2 


CLC 


MUL 1 

JSR 

RTLOG 1 


B CC 

MIJL2 


JSR 

ADD 

MUL2 

DEY 



BPL 

MUL 1 

MDENU 

LSR 

SIGN 

NORMX 

BCC 

NORM . 

FOOMPL 

SEC 



LDX 

#43 

COMPL 1 

LDA 

#40 


EXP 1 ZERO? 

MO. CONTINUE NORMALIZING. 

RTS RETURN. 

CMPL MAN I 1 , CLEARS CARRT UNLESS 
RIGHT, SHIFT MAN T 1 OR SWAP WI'i., 


FDIV 


DIV1 

DIV2 


D I V3 


SBC 

STA 

DEX 

BNE 

BEQ 

iJSR 

SBC 

JCR 

SEC 

LDX 

LDA 

SBC 

PHA 

DEX 

BPL 

LDX 

PLA 


XI, X 
XI, X 


COM PL 1 

ADDEND 

MD1 

XI 

MG2 


#42 
M2, X 
E, X 


DIV2 

#4FD 


COMPARE EXP1 WITH EXP 2. 

IF #, SWAP ADDENDS OR ALIGN Ma,.T 
ADD ALIGNED MANTISSAS. 

NO OVERFLOW, NORMALIZE RESULT 
OV: SHIFT Ml RICH I, CARRY INio 

SWAP IF CARRY CLEAR, . , 

ARITH. 

SIGN tiF MAN PI IN 10 CARRY FUR 
RIGHT ARITH SHIFT. 

I NCR XI TO ADJUST FOR RIGHT SHI 
EXP1 OUT OF RANGE. 

INDEX FOR 6: BYTE RIGHT SHIFT. 


NEXT BYTE OF SHIFT. 

LOOP UNTIL DONE. 

RETURN. 

ABS VAL OF MANT1 , MAN i 2. 

ADD EXP1 TO EXF'2 FOR PRODUCT EX 
CHECK PROD. EXP AND PREP. FOP M 
CLEAR CARRY FOR FIRST BIT. 

Ml AND E RIGHT (PROD AND MPLIEF 
IF CARRY CLEAR, SKIP PARTIAL PF 
ADD MULTIPLICAND TO PRODUCT. 
NEXT MUL ITERATION. 

LOOP UN I IL DONE. 

TEST SIGN LSB. 

IF EVEN, NORMALIZE PROD, ELSE 
SEf CARRY FOR SUBTRACT. 

INUGX FOR 3-BYTE SUbTRACT. 

CLEAR A. 

SUBTRACT BYTE OF EXP1. 

RESTORE I T. 

NEXT MORE SIGNIFICAN I EY TE. 

LOOP UNTIL DONE. 

NORMALIZE (OR SHIFT RT IF OVK 
TAKE AES VAL OF MANY 1 , MAN T2. 
SUBTRACT EXP 1 FROM EXF'2. 

SAVE AS QUOTIENT EXF. 

SET CARRY FOR SUBTRACT. 

INDEX FOR 3-BYlE SUBTRACTION. 


cc 


SUBTRACT A BY TE OF E FROM MAN ■ 
SAVE ON STACK. 

NEXT MORE SIGNIFICANT EY I E. 
LOOP UNlIL DONE. 

INDEX FOR 3-BYTE CONDITIONAL 
PULL BYTE OF DIFFERENCE 


Ml 


OFF 
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PAGE' 3 

F4C3 

90 

02 

109 


BCC 

DIV4 

IF M2<E THEN DON'T RESTORE M2 

.-4:1 A 

35 

i- 3 

no 


STA 

M2+3. X 


F4CC 

E3 


1 1 1 

DIV4 

I NX 


NEXT LESS SIGNIFICANT BYTE. 

0 

DO 

i 3 

112 


BNE 

D 1 03 

LOOP UNTIL DONE. 

t* *».^r 

26 

FB 

113 


ROL 

Ml +2 


F4D 1 

26 

FA 

114 


ROL 

Ml + 1 

ROLL QUOTIENT LEFT, CARRY INlC 

F4D3 

26 

T9 

115 


ROL 

Ml 


P4D5 

06 

P 7 

1 16 


A3L 

M2+2 


F4D7 

26 

F6 

117 


ROL 

M2+ 1 

SHIFT DIVIDEND LEFT. 

F 4D9 

26 

F5 

113 


ROL 

M2 ' 


F4DB 

BO 

1C 

119 


DCS 

OVKL 

OVKL IS DUE TO UNNORMED DIVISr 

F4DD 

3:3 


120 


DEY 


NEXT DIVIDE ITERATION. 

F4DE 

DO 

DA 

121 


BNL 

D I VI 

LOOP UNlIL DONE 23 ITEkATIONS 

F 4E0 

FO 

BE 

122 


BEQ 

MDEND 

NORM. QUOTIENl AND CORRECT SI 1 ' 

F4C2 

36 

KB 

123 

riD 2 

STX 

Ml +2 


F4L4 

36 

t- A 

124 


3TX 

Ml + 1 

CLEAR MAN T1 (3 BYTES) FOR MUL; 

F4E6 

36 

F9 

125 


STX 

Ml 


-4E3 

BO 

OD 

126 


BCS 

OVCHK 

IF CALC. SET CARRY, CHECK FOR . 

r 4EA 

30 

04 

127 


EMI 

MD3 

IF NEG THEN NO UNDERFLOW. 

- 41- r: 

63 


123 


PLA 


POP ONE RETURN LEVEL. 

r 4L'D 

63 


129 


PLA 



- 4EC 

90 

B2 

130 


BCC 

NORMX 

CLEAR XI AND RETURN. 

" 4F0 

49 

30 

131 

Mu3 

EOR 

#430 

COMRLEMENI SIGN BIT OF EXPONfcfi 

4F2 

6: 5 

F3 

132 


STA 

XI 

STORE IT. 

-41-4 

AO 

17 

1 33 


LDY 

#417 

COUN'I 24 MUL/23 DIV ITERATIONS 

r 4F6 

60 


134 


RTS 


RETURN. 

r 4l'7 

10 

F7 

1 35 

OVCHK 

BPL 

MD3 

IF POSITIVE EXP THEN NO OVKL. 

r 4F9 

4C 

F5 03 

136 

OVKL 

■JMP 

OVLOC 





137 


URG 

4F63D 


. J 

20 

7D F4 

1 33 

r I X 1 

OCR 

RTAR 


-'640 

A5 

P 3 

1 39 

FIX 

LDA 

XI 


r 642 

10 

13 

140 


BPL 

UNDFL 


-644 

C9 

3E 

141 


CMP 

#43E 


r 646 

DO 

K5 

142 


BNE 

FI XI 


64.3 

24 

F9 

143 


BIT 

Ml 


r 64A 

10 

OA 

144 


BPL 

F IXRTS 


7 64C 

A 5 

FE: 

145 


LDA 

Ml+2 


’64C 

FO 

06 

146 


BEQ 

F IXRTS 


'650 

E6 

I'A 

147 


INC 

Ml+1 


'652 

DO 

02 

143 


BNE 

F IXRTS 


'654 

E6 

F9 

149 


INC 

Ml 


'656 

60 


150 

P IXRTS 

RTS 


RTS 

'657 

A? 

00 

151 

UNDFL 

LDA 

#40 


'659 

35 

F9 

152 


STA 

Ml 


'656 

35 

FA 

1 53 


STA 

Ml + 1 


650 

60 


154 


RTS 



- * X fi- -fe- -fir -#• I_ 

CCESSf 

'UL AS 

SEMBLY: 

NO tRR'L 

RS 
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CR0U3-REF ERNCE : FLOATING POIMt ROIJlINES 







AbSL’AP 

F437 

0032 










ABGWAP1 

1 440 

0034 










ADD 

1*425 

0064 

0034 









ADD1 

i’423 

0029 










AODLND 

F477 

0096 










ALGNSWP 

l*47B 

0060 










COMPL 1 

f 4A7 

0095 










UIV1 

F4EA 

0121 










0102 

F4BD 

0106 










UI03 

l*4C7 

0112 










D1V4 

F4CC 

0109 










L 

OOFO ( Z ) 

0039 

0074 

0103 








FADD 

i 46E 











I'COMF'L 

F4A4 

0035 

0059 









FDIU 

1*4 B2 











IIX - 

F640 











FI XI 

F63D 

0142 










FIXRTS 

F‘656 

0144 

0146 

0143 








FLOAT 

F451 











rrisjL 

F43C 











roue 

F 463 











Ml 

Q0F9 ( Z > 

0025 

0027 

0033 

0049 0053 

0054 

0055 

0069 

0113 

0114 

0115 



0123 

0124 

0125 

0143 0145 

0147 

0149 

0152 

0153 



M2 

00F5<Z) 

0026 

0102 

0110 

0116 0117 

01 13 






MO 1 

F432 

0073 

0097 









MD2 

F4E2 

0030 

0099 









MD3 

l'4F0 

0127 

0 1 35 









MULND 

F4AO 

0122 










MUL 1 

F495 

0006 










MU! 2 

F49D 

0033 










NORM 

F463 

0065 

0033 









NORM 1 

F455 

0057 










NOR MX 

F4A2 

0130 










OVCHK 

l*4F7 

0126 










OVFL 

F4F9 

0072 

01 19 









OVLOC 

03F5 

0136 










Ror;i 

F4S6 

0076 










RTAR 

F47D 

0133 










K'TLOG 

F430 

0066 










R1 LOG 1 

F434 

0032 










to SI 

F467 

0051 










S I GN 

OOFS ( Z ) 

0031 

0036 

0037 








SWAP 

t 44 1 

0067 










AP 1 

F443 

0045 










SWFALGN 

F46E 

0063 










IJNLiFL 

F657 

0140 










XI 

OOF 3 ( Z ) 

0040 

0042 

0043 

0052 0056 

0062 

0071 

0079 

0092 

0093 

0093 



0132 

0139 









X2 

00F4 

0041 

0043 

0061 
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SWEET16 - THE 6502 DREAM MACHINE 

While writing APPLE BASIC for a 6502 microprocessor I 

> 

repeatedly encountered a variant of MURPHY'S LAW. Briefly 
stated, any routine operating on 16-bit data will require at 
least twice the code that it should. Programs making extensive 
use of 16-bit pointers (such as compilers, editors, and assemblers) 
are included in this category. In my case, even th^ addition 
of a few double-byte instructions to the 6502 would have only 
slightly alleviated the problem. What I really needed was a 
6502/RCA 1800 hybrid - a powerful 8-bit data handler complemented 
by an easy to use processor with an abundance of 16-bit registers 
and excellent pointer capability. My solution was to implement 
a non-existent (raeta) 16-bit processor in software, interpreter 
style, which I call SWEET16 . 

SWEET16 is based around sixteen 16-bit registers (R0-R15), 
actually 32 memory locations. R0 doubles as the SWEETIE accu- 
mulator (ACC), R15 as the program counter (PC), and R14 as the 
status register. R13 holds compare instruction results and R12 
is the subroutine return stack pointer if SWEET16 subroutines 
are used. All other SWEET16 registers are at the user's unre- 
stricted disposal. 

SWEET16 instructions fall into register and non-register 
categories. The register ops specify one of the sixteen reg- 
isters to be used as either a data element or a pointer to 
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data in memory depending on the specific instruction. For example, 
INR R5 uses R5 as data and ST @R7 uses R7 as a pointer to data 
in memory. . Except for the SET .instruction , register^ops take 
1 byte of code each. The non-register ops are primarily 6502 
style branches with the second byte specifying a +127 byte dis- 
placement relative to the address of the following instruction. 
Providing that the prior register op result meets a specified 

i 

branch condition, the displacement is added to SWEET16's PC, 
effecting a branch. 


SWEET16 is intended as a 6502 enhancement package, not a 
stand-alone processor. A 6502 program switches to SWEET16 mode 
with a subroutine call and subsequent code is interpreted as 
SWEET16 instructions. The non-register op RTN returns the user 
program to 6502 mode after restoring the internal register 


contents 

(A, 

x, 

Y, P, and 

S). 

The following example illustrates 

how to use SWEET16 . 




300 

B9 

00 

02 

LDA 

IN , Y 

Get a char. 

303 

C9 

CD 


CMP 

"M" 

"M" for move? 

305 

DO 

09 


BNE 

NOMOVE 

No, skip move. 

307 

20 

89 

F6 

JSR 

SW16 

Yes, call SWEET16. 

30A 

41 


MLOOP 

LD 

@R1 

R1 holds source address 

30B 

52 



ST 

@R2 

R2 holds dest . address. 

30C 

F3 



DCR 

R3 

Decrement length. 

30D 

07 

FB 


BNZ 

MLOOP 

Loop until done. 

30F 

00 



RTN 


Return to 6502 mode. 

310 

C9 

C5 

NOMOVE 

CMP 

"E" 

"E" char? 

312 

DO 

13 


BEQ 

EXIT 

Yes, exit. 

314 

C8 



I NY 


No, continue 


NOTE: Registers A, X, Y, P, and S are 

not disturbed by SWEET16, 


Distributed under the Creative Commons License on page 5 


Page 0108 of 0213 




The Woz Wonderbook - 1977 -- DigiBarn Computer Museum - Steve Wozniak, Apple Computer Inc. 


INSTRUCTION DESCRIPTIONS 

The SWEET16 opcode list is short and uncomplicated. 
Excepting relative branch displacements, hand assembly is 
trivial. All register opcodes are formed by combining two 
hex digits, one for the opcode and one to specify a register. 

For example, opcodes 15 and 45 both specify register R5 while 
codes 23, 27 and 29 are all ST ops. Most register ops are 
assigned in complementary pairs to facilitate remembering 
them. Thus LD and ST are opcodes 2n and 3n respectively, while 
LD <§ and ST @ are codes 4n and 5n . 

Opcodes 0 to C (hex) are assigned to the thirteen 
non-register ops. Except for RTN (opcode 0), BK (OA), and 
RS (B), the non-register ops are 6502 style relative branches. 
The second byte of a branch instruction contains a +127 byte 
displacement value (in two's complement form) relative to the 
address of the instruction immediately following the branch. 

If a specified branch condition is met by the prior register 
op result, the displacement is added to the PC effecting a 
branch. Except for BR (Branch always) and BS (Branch to Sub- 
routine), the branch opcodes are assigned in complementary 
pairs, rendering them easily remembered for hand coding. For 
example, Branch if Plus and Branch if Minus are opcodes 4 and 
5 while Branch if Zero and Branch if NonZero are opcodes 6 and 7. 
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03 

cd 

a 

O 
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1S1 
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a 

55 
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REGISTER ops 


SET Rn, Constant 


In 


low high 

j L ._J 1 

constant 


(Set) 


The 2-byte constant is loaded into Rn (n = 0 to F, hex) 
and branch conditions set accordingly. The carry 

cleared. 

Example 

15 34 A0 SET R5.A034 R5 now contains A034 


LD Rn 


r 2p <L ° a ‘ i) 

The ACC (RO) Is loaded from Rn and branch conditions 
set according to the data transferred. The carry Is 
cleared and the contents of Rn are not disturbed. 

Example 

a c o 4 A0 SET R5, A034 

LD R5 ACC now contains A034 


r 


ST Rn 


L 


3n 


(Store) 


The 


ACC is stored into Rn 


and branch conditions set 


according to the data trans 
and the ACC contents are not disturbed. 


f erred. The carry is cleared 


Example 


25 

36 


LD R5 
ST R6 


Copy the contents 
of R5 to R6. 


| Page 
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I . ' (Load indirect) 

LD <s-Rn [ _i - 

The low-order ACC byte Is loaded from the memory location 
whose address resides' in Rn and the high-order ACC byte is 
cleared. Branch conditions reflect the final ACC con- 
tents which will always be positive and never mines 1. 

The carry is cleared. After the transfer, Rn is mere- 

mented by 1. 


Example 

15 34 AO 
45 


SET R5 , A034 
LD @R5 


ACC is loaded from 
memory location A034 
and R5 is incremented 
to A035. 


ST @Rn 


I 5n j 

The low-order ACC byte is stored into 
whose address resides in Rn . Branch 
the 2-byte ACC contents. The carry l 
the transfer, Rn is incremented by 1. 


(Store indirect) 
the memory location 
conditions reflect 
s cleared. After 


Example 

15 34 AO 

16 22 90 
45 

56 


SET R5, A034 
SET R6 , 9022 
LD @R5 
ST @R6 


Load pointers R5 and R6 

with A034 and 9022. 

Move a byte from location 
A034 to location 9022. 
Both pointers are 
incremented . 
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I 6n (Load double-byte indirect) 

The low order ACC byte is loaded from the memory location 
whose address resides in Rn and Rn is then incremented 
by 1. The high order ACC byte is loaded from the memory 
location whose address resides in the (incremented) Rn 
and Rn is again incremented by 1. Branch conditions 
reflect the final ACC contents. The carry is cleared. 

Example 


15 34 AO 
65 


SET R5 , A034 

LDD @R5 The low-order ACC byte 

is loaded from location 
A034, the high-order byte 
from location A035. R5 is 
incremented to A036. 


STD @Rn 



(Store double-byte indirect) 


The low-order ACC byte is stored into the memory location 
whose address resides in Rn and Rn is then incremented 
by 1. The high-order ACC byte is stored into the memory 
location whose address resides in (the incremented) Rn 
and Rn is again incremented by 1- Branch conditions 
reflect the ACC contents which are not disturbed. The 
carry is cleared. 


Example 

15 34 AO 

16 22 90 
65 

76 


SET R5, A034 
SET R6 , 9022 
LDD @R5 
STD @R6 


Load pointers R5 and R6 
with A034 and 9022. Move 
double byte from locations 
A034 and A035 to locations 
9022 and 9023. Both point- 
ers are incremented by 2. 
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POP QRn j 8n (Pop indirect) 

The low order ACC byte is loaded from the memory location 
whose address resides in Rn after Rn is decremented by 1 
and the high order ACC byte is cleared. Branch conditions 
reflect the final 2-byte ACC contents which will always be 
positive and never minus 1. The carry is cleared. Because 
Rn is decremented prior to loading the ACC, single byte 

i 

stacks may be implemented with the ST @Rn and POP @Rn 
ops (Rn is the stack pointer). 


Examp 

le 




15 

34 

AO 

SET R5, 

A034 

Init stack pointer. 

10 

04 

00 

SET RO, 

4 

Load 4 into ACC. 

35 



ST @R5 


Push 4 onto stack. 

10 

05 

00 

SET RO, 

5 

Load 5 into ACC. 

35 



ST @R5 


Push 5 onto stack. 

10 

06 

00 

SET RO, 

6 

Load 6 into ACC. 

f 

35 



ST @R5 


Push 6 onto stack. 

85 



POP @R5 


Pop 6 off stack into 

85 



POP @R5 


Pop 5 off stack. 

85 



POP <§R5 


Pop 4 off stack. 
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r " " — » 

STP clRn ; 9n (STORE POP indirect) 

i 

The low order ACC byte is stored into the memory location 
whose address resides in Rn after Rn is decremented by 1. 
Then the high-order ACC byte is stored into the memory 
location whose address resides in Rn after Rn is again 
decremented by 1. Branch conditions will reflect the 
2-byte ACC contents which are not modified. STP @Rn 
and TOP @Rn are used togeiher to move data blocks 
beginning at the greatest address and working down. 
Additionally, single-byte stacks may be implemented 
with the STP @Rn and LDA @Rn ops. 

Example 


14 

34 

AO 

SET 

R4 , 

A034 

Init 

pointers . 


15 

22 

90 

SET 

R5 , 

9022 




84 



POP 

@R4 


Move 

byte from 

A033 

95 



STP 

@R5 



to 9021. 


84 



POP 

@R4 


Move 

byte from 

A032 

95 



STP 

@R5 



to 9020. 
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ADD Rn j An (Add) 

The contents of Rn are added to the contents of the ACC 
(RO) and the low-order 16 bits of the sum restored in 
ACC. The 17th sum bit becomes the carry and other branch 
conditions reflect the final ACC contents. 


Example 


10 

34 

76 

SET 

RO, 

7634 

Init RQ (ACC) 

11 

27 

42 

SET 

Rl, 

4227 

and Rl. 

A1 



ADD 

R1 


Add Rl (sum = B85B, 
carry clear) 

AO 



ADD 

RO 


Double ACC (RO) to 70B6 


with carry set. 
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SUB Rn Bn (Subtract) 

The contents of Rn are subtracted from the ACC contents 
by performing a two's complement addition: 


ACC ACC + Rn + 1 


The low order 16 bits of the subtraction are restored 

r 

in the ACC. The 17th sum bit becomes the carry and other 

branch conditions reflect the final ACC contents. If 

the 16-bit unsigned ACC contents are greater than or 

equal to the 16-bit unsigned Rn contents then the 

carry is set, otherwise it is cleared. Rn is not disturbed. 

Example 


10 

34 

76 

SET 

RO, 

7634 

Init RO (ACC) 

11 

27 

42 

SET 

Rl, 

4227 

and Rl. 

A1 



SUB 

R1 


Subtract Rl (diff = 
340D with carry 

AO 



SUB 

RO 


Clears ACC (RO) 
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POPD <SRn ; Cn j (POP Double-byte indirect) 

Rn is decremented by 1 and the high-order ACC byte is 
loaded from the memory location whos'e address now reside's 
in Rn. Then Rn is again decremented by 1 and the low-order 
ACC byte is loaded from the corresponding memory location. 
Branch conditions reflect the final ACC contents. The 
carry is cleared. Because Rn is decremented prior to 
loading each of the ACC halves, double-byte stacks 
may be implemented with the STD @Rn and POPD @Rn ops 
(Rn is the stack pointer). 


Example 


15 

34 

AO 

SET 

R5, 

A034 

Init stack pointer. 

10 

12 

AA 

SET 

RO, 

AA12 

Load AA12 into ACC. 

75 



STD 

@R5 


Push AA12 onto stack. 

10 

34 

BB 

SET 

RO, 

BB34 

Load BB34 into ACC. 

75 



STD 

@R5 


Push BB34 onto stack. 

10 

56 

CC 

SET 

RO, 

CC56 

Load CC56 into ACC. 

C5 



POPD 

@R5 


Pop CC56 off stack. 

C5 



POPD 

@R5 


Pop BB34 off stack. 

C5 



POPD 

@R5 


Pop AA12 off stack. 
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CPR Rn | Dn j (Compare) 

The ACC (RO) contents are compared to Rn by performing 
the 16-bit binary subtraction ACC-Rn and storing the low 
order 16 difference bits in R13 for subsequent' branch 
tests. If the 16-bit unsigned ACC contents are greater 
than or equal to the 16-bit unsigned Rn contents then 
the carry is set, otherwise it is cleared. No other 
registers, including ACC and Rn, are disturbed. 

Example 


15 

34 

A0 

SET 

R5 , 

A034 

Pointer to memory. 

16 

BF 

A0 

SET 

R6 , 

AOBF 

Limit address. 

10 

00 

00 

LOOP SET 

R0, 

0 

Zero data. 

75 



STD 

@R5 


Clear 2 Iocs, incr R5 

25 



LD 

R5 


Compare pointer R5 

D6 



CPR 

R6 


to limit R6 . 

02 

F8 


BNC 

LOOP 

Loop if carry clear. 
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i 

INR Rn ( En I (Increment) 

The contents of Rn are incremented by 1. The carry is 
cleared and other branch conditions reflect the incre- 
mented value. 

Example 


15 

34 

A0 

SET 

R5, 

A034 

Init R5 (pointer) 


10 

00 

00 

SET 

R0, 

0 

Zero to R0 . 


55 



ST 

@R5 


clears loc A034 and 
R5 to A035. 

incrs 

E5 



INR 

R5 


Incr R5 to A036 


55 



ST 

@R5 


Clears loc A036 (not 

A035) 


DCR Rn i Fn | (Decrement) 

The contents of Rn are decremented by 1. The carry is 
cleared and other branch conditions reflect the decre- 


mented value. 

Example (Clear 9 bytes beginning at loc A034) 


15 

34 

A0 

SET 

R5 , 

A034 

Init pointer. 

14 

09 

00 

SET 

R4 , 

9 

Init count. 

10 

00 

00 

SET 

R0, 

0 

Zero ACC. 

55 



LOOP ST 

@R5 


Clear a mem byte 

F4 



DCR 

R4 


Deer, count. 

07 

FC 


BNZ 

LOOP 

Loop until zero. 
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NON-REGISTER INSTRUCTIONS 

i 00 i (Return to 6502 mode) 

Control is returned to the 6502 and program execution 
continues at the location immediately following the RTN 
instruction. The 6502 registers and status conditions 
are restored to their original contents (prior entering 
SWEET16 mode) 


(Branch Always) 

An effective address (ea) is calculated by adding the 
signed displacement byte (d) to the PC. The PC contains 
the address of the instruction immediately following 
the BR, or the address of the BR op plus 2. The 
displacement is a signed twos complement value from 
-128 to +127. Branch conditions are not changed. Note 
that effective address calculation is identical to that 
for 6502 relative branches. The hex add and subtract 
features of the APPLE-II monitor may be used to calculate 
displacements . 

d = $80 ea = PC + 2 - 128 

d = $81 ea = PC + 2 - 127 

d = $FF ea = PC + 2 - 1 

d = $00 ea = PC + 2 + 0 

d = $01 ea = PC + 2 + 1 

d = $7E ea = PC + 2 + 126 

d = $7F ea = PC + 2 + 127 

Example 

$300: 01 50 BR $352 


BR ea 


01 I 


rr 
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BNC ea 


BC ea 


BP ea 


BM ea 


I 02 Id (Branch if No Carry) 

i t - 

A branch to the effective address is taken only if the 
carry is clear, otherwise execution resumes a.s normal 
with the next instruction. Branch conditions are not 
changed . 


1 I 

03 : d (Branch if Carry set) 
A branch is effected only if the carry is setT. Branch 
conditions are not changed. 


A branch 
recently 


04 



(Branch if Plus) 


is effected only if the prior ’result’ (or most 
transferred data) was positive. Branch con- 


ditions are not changed. 

Example (Clear mem from loc . A034 to A03F) 


15 

34 

A0 


SET 

R5 , 

A034 

Init pointer. 

14 

3F 

A0 


SET 

R4, 

A03F 

Init limit. 

10 

00 

00 

LOOP 

SET 

R0, 

0 


55 




ST 

(ffR5 


Clear mem byte, incr R5 

24 




LD 

R4 


Compare limit to 

D5 




CPR 

R5 


pointer. 

04 

F8 



BP 

LOOP 

Loop until done. 




— 

05 

d 

1 

(Branch if Minus) 

A 

branch 

is effected only 

if the 

prior ’result’ was 

minus 

( negative , 

MSB = 

1). 

Branch conditions are not 


changed . 
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•' 1 ; — 

BZ ea t 06 | d (Branch if Zero) 

A branch is effected only if the prior 'result' was zero. 
Branch conditions are not changed. 


BNZ 


ea 

A branch 
non-zero 



is effected only if 
Branch conditions 


(Branch if NonZero) 
the prior 'result' was 
are not changed. 


BM1 


ea 



A branch is effected only* if 
minus 1 ( $FFFF hex). Branch 


(Branch if Minus 1) 
the prior 'result' was 
conditions are not changed. 


BNM1 ea 09 j d i (Branch if Not Minus 1) 

A branch is effected only if the prior 'result' was not 
minus 1 ( $FFFF hex). Branch conditions are not changed. 


BRK 


r°r~! (Break) 

A 6502 BRK (break) instruction is executed. SWEET16 

may be reentered nondestructively at SW16D after correcting 

the stack pointer to its value prior executing the BRK. 
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OB (Return from SWEET16 Subroutine) 

RS terminates execution of a SWEET16 subroutine and 
returns to the SWEET16 .calling program which , resumes 
execution (in SWEET16 mode). R12, which is the SWEET16 
subroutine return stack pointer, is decremented twice. 
Branch conditions are not changed. 


! oc] Hi [ (Branch to SWEET16 Subroutine) 
A branch to the effective address (PC + 2 + d) is taken 
and execution is resumed in SWEET16 mode. The current 
PC is pushed onto a ' SWEET16 subroutine return address' 
stack whose pointer is R12, and R12 is incremented by 
2. The carry is cleared and branch conditions set to 


indicate the current ACC contents. 

Example (Calling a 'memory move' subroutine to move 
A034-A03B to 3000-3007) 


300 : 

15 

34 

A0 

SET 

R5, 

A034 

Init 

pointer 1. 

303: 

14 

3B 

A0 

SET 

R4, 

A03B 

Init 

limit 1. 

306 : 

16 

00 

30 

SET 

R6, 

3000 

Init 

pointer 2. 

309: 

OC 

15 


BS 

MOVE 

Call 

move subroutine 


320 : 

45 

MOVE LD 

@R5 

Move one 

321 : 

56 

ST 

@R6 

byte . 

322 : 

24 

LD 

R4 


323 : 

D4 

CPR 

R5 

Test if done. 

324 : 

04 FA 

BP 

MOVE 

Return . 

326 : 

0B 

RS 
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THEORY OF OPERATION 

SWEET 16 execution mode begins with a subroutine call to 
SW16 . The user must insure that the 6502 is in hex mode upon 
entry. All 6502 registers are saved at this time, to be re- 
stored when a SWEET16 RTN instruction returns control to the 
6502. If you can tolerate indefinite 6502 register contents 

i * 

upon exit, approximately 30 usee may be saved by entering at 
SW16 + 3. Because this might cause an inadvertant switch from 
hex to decimal mode, it is advisable to enter at SW16 the first 
time through. 

After saving the 6502 registers, SWEET16 initializes 
its PC ( R15 ) with the subroutine return address off the 6502 
stack. SWEET16 ' s PC points to the location preceding the next 
instruction to be executed. Following the subroutine call 
are 1-, 2-, and 3-byte SWEET16 instructions, stored in ascending 
memory locations like 6502 instructions. The main loop at SW16B 
repeatedly calls the 'execute instruction' routine at SW16C 
which examines one opcode for type and branches to the appro- 
priate subroutine to execute it. 

Subroutine SW16C increments the PC (R15) and fetches the 
next opcode which is either a register op of the form OP REG 
with OP between 1 and 15 or a non-register op of the form 0 OP 
with OP between 0 and 13. Assuming a register op, the register 
specification is doubled to account for the 2-byte SWEET16 
registers and placed in the X-Reg for indexing. Then the 
instruction type is determined. Register ops place the doubled 
register specification in the high order byte of R14 indicating 
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the 'prior result register' to subsequent branch instructions. 
Non-register ops treat the register specification (right-hand 
half-byte) as their opcode, increment the SWEET16 PC to point - 
at the displacement byte of branch instructions, load the A-Reg 
with the 'prior result register' index for branch condition 
testing, and clear the Y-Reg. 

WHEN IS AN RTS REALLY A JSR? 

Each instruction type has a corresponding subroutine. 

The subroutine entry points are stored in a table which is 
directly indexed into by the opcode. By assigning all the 
entries to a common page only a single byte of address need 
be stored per routine. The 6502 indirect jump might have been 
used as follows to transfer control to the appropriate subroutine. 


LDA 

#ADRH 

High-order address byte 

STA 

IND+1 


LDA 

OPTBL , X 

Low-order byte. 

STA 

IND 


JMP 

( IND) 



To save code the subroutine entry address (minusll) 
is pushed onto the stack, high-order byte first. A 6502 RTS 
(ReTurn from Subroutine) is used to pop the address off the 
stack and into the 6502 PC (after incrementing by 1). The 
net result is that the desired subroutine is reached by executing 
a subroutine return instruction! 
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OPCODE SUBROUTINES 

^ 6502 'zero 

The register op routines make use 

, v indirect’ addressing 
page indexed by X' and 'indexed by X xndxre 

, „ f m ost register ops is ten: 

The ’ resu branch instructions 

' nn(1 can be sensed by subsequent br 

ree ::;;; ; ter - — *■ - —7 

5 „ This specif icat ion is changed to — HO 

7“, 0 t „ «■ -a SOB instructions and Bi3 foe the CPH 

inStrUC Il ly ta. high-order Hi, byte -as the 'P- 

9 tn account for the 2 -byte 

result register' index times _ ( SDD SU B, or 

SWEET16 registers and thus the LSB is aero. *» 

CPB instructions generate carries, then this index is 

4 - opt t ine t. In© LSB. 

rented , tw ice , picking up 

The SET instruction increments 

. tp . Xn accordance with 

- data Bytes in the specified register. „ 

convention , the low-order data byte precedes 

bJte ' Host SWEETIE uonregister ops are relative branches 
The corresponding subroutines determine whether or not the 
1 prior result' meets the specified branch condition and i 

upd ate Che SWEETIE PC by adding the displacement value < — 
+0 +127 bytes) . 
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The RTN op restores the 6502 register contents, pops the 
subroutine return stack and jumps indirect through the SWEET16 
PC. This t ransfers control to the 6502 _ at the instruction im- 
mediately following the RTN instruction. 

The BK op actually executes a 6502 break instruction (BRK), 
transferring control to the interrupt handler. 

Any number of subroutine levels may be implemented within 

! * 
SWEET16 code via the BS (Branch to Subroutine) and RS (Return 

from Subroutine) instructions. The user must initialize and 

otherwise not disturb R12 if the SWEET16 subroutine capability 

is used since it is utilized as the automatic subroutine return 

stack pointer. 


MEMORY ALLOCATION 

The only storage that must be allocated for SWEET16 variables 
are 32 consecutive locations in page zero for the SWEET16 regis- 
ters, four locations to save the 6502 register contents, and 
a few levels of the 6502 subroutine return address stack. If 
you don't need to preserve the 6502 register contents, delete 
the SAVE and RESTORE subroutines and the corresponding subroutine 
calls. This will free the four page zero locations ASAV, XSAV, 
YSAV, and PSAV. 

USER MODIFICATIONS 

You may wish to add some of your own instructions to this 
implementation of SWEET 16 . If you use the unassigned opcodes 
$0E and $0F, remember that SWEET16 treats these as 2-byte instruc- 
tions. You may wish to handle the break instruction as a SWEET16 
call, saving two bytes of code each time you transfer into SWEET 16 
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. , • „ OVFVT16 BK (Break) op as a 

mode. Or you may wish to use the SVLLi-L 

■ , . You can perform absolute 

'CHAROUT' call in the interrupt handle . 

jumps within SWEET16 by lending teb ACC (RO) with the address 
you wish to jump to (minus 1, and executing a ST R15 instruction. 
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v F n — ' - n 


P. M. 


10 / 3/1977 

1 

7 

3 

4 

5 

6 
1 
3 

9 

10 
11 
12 

13 

14 

15 

1 6 
17 
13 

19 

20 
21 
■■yy 

23 


„*»****«•************** 

A 


-639: 

20 

4A FF 

24 

-6 SC: 

63 


25 

-60D: 

35 

IE 

26 

1 6SP : 

60 


27 

r o 

.35 

IF 

23 

1" 692: 

20 

93 F6 

29 

0695 

4C 

92 F6 

30 

F693: 

E6 

IE 

31 

F67A 

DO 

02 

O 2- 

F69C: 

E6 

IF 

33 

F6‘9E: 

A 9 

P'7 

34 

t 6A0 : 

43 


35 

1 6A1 : 

AO 

00 

33 

F6A3 : 

B1 

IE 

37 

F6A5: 

29 

OF 

—i o 
Oo 

F6A7: 

OA 


39 

P6AS: 

AA 


40 

F6A9- 

4A 


41 


* 

* 

* 

* 

* 

* 


APPLE- 1 I PSEUUO_ 
MACH I NE INTERF’RE I'EK 

COP WIGHT 1977 

apple compuier i no 


* 

* 

* 

* 

* 

* 

* 


P 6AA 

51 IE 

42 

F6AC: 

FO OB 

43 

F6AE: 

S6 ID 

44 

F6B0: 

4A 

45 

F6B1 

4A 

46 

F6B2 : 

4A 

47 

F6B3: 

AS 

43 

F6B4: 

B9 El 

F6 49 

P 6b7 : 

40 

50 

h 6BS 

60 

51 

• 6B9 : 

E6 IE 

52 

6BB: 

DO 02 

53 

1 6BD 

E6 IF 

54 


* ALL RIGHT 1 * RE3 

ERVEO * 

JC 

* 

< 3. 

* 

WOZNIAK 

* 

* 

****** ************* *** * 

TITLE " 

SWLET 1 6 

1 N 1 ERFPE rtK 

ROL 

EPZ 

$0 

ROH 

EPZ 

*1 

R14H 

EPZ 

4 1 D 

R15L 

£P Z 

S1E 

R 1 5H 

EPZ 

s IF 

3 1 6P A*j 

ECU 

4F7 

SAVE 

EQU 

4FF4A 

RESTORE 

ECU 

4FF3F 

ORG 

SF639 

SW 1 6 

JSR 

SAVE 


PLA 



STA 

PLA 

R15L 


suite 

SW16C 
SW 1 6D 


TOBR 


ST A 

JSR 

JrlP 

INC 

ENE 

INC 

LDA 

PHA 

LDV 

LDA 

AND 

ASL 

TAX 

LSR 

EOR 

EEQ 

STX 

LSR 

LSR 

LSR 

TAY 

LDA 

PHA 

RTS 

I NC 

ENE 

INC 


R15H 

suite 

SU16B 
R15L 
SW16D 
R 1 5H 
&S 1 6 PAG 

#40 

( R 1 5L ) i Y 

#5F 

A 

A 

( R1 5L ) i Y 

TOBR 

R14H 

A 

A 

A 

OPTBL-2, Y 


R15L 

T0BR2 

R15H 


PACE: 1 


PRESERVE 6502 REG CONTENTS 

IN IT SWEET 16 PC 
FROM RETURN 
ADDRESS . 

INTERPRET AND EXEdJ I E 
ONE SWEET 16 INSTR. 

1 NCR SWEET 16 PC FOR FE lCH 


PUSH ON 


STACK FOR RTS 


:£ i P:H INSTR 

1A3K REG SPECIFICATION 
DOUBLE FOR 2-BY!E REG-.= 


NOW HAVE OPCODE 
IF ZERO THEN NON -REb 
INDICATE -PR I OR RESULT 


OP 

REG-' 


OPCODE *2 TO LSB' S 

T 0 Y-REG FOR INDEXING 
LOW-ORDER ADR BYTE 
ON l 0 STACK 

goto reg-op routine 


I NCR PC 
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PAGE: 2 

REEF 

ED 

E4 

fe 

55 

T0BR2 

LDA 

BRTBL, X 

LOW-ORDER ADR BY TE 

Fit 2 

43 



56 


F'HA 


ON i 0 STACK FOR NON— REG OP 

FEC3 

A5 

ID 


57 


LDA 

R14H 

•'PRIOR RESULT REG' INDEX 

F6C 5 

4A 



c <~- 


L3R 

A 

PREPARE CARRY FOR BC, BNC. 

FEC6 

EO 



59 


RTS 


GOTO NON-REG OP KOUlINL 

f- (SC 7 

E3 



60 

RTNZ 

PLA 


POP RETURN ADDRESS 

FEUS 

68 



61 


PLA 



FEC9 

20 

3F 

FF 

62 


■JSR 

RESTORE 

RESTORE 6502 REG CONTENTS 

F 6CC 

EC 

IE 

00 

63 


Grip 

(R15L) 

RETURN TO 6502 CODE VIA PC 

F6CF 

81 

IE 


64 

3E rz 

LDA 

(R15L) , Y 

HIGH-ORDER BYTE OP CONST 

F6D1 

95 

01 


65 


ST A 

ROH, X 


FA. Li 3 

33 



66 


DEY 



f 6D4 

El 

IE 


67 


LDA 

( R 1 5L > , Y 

LOW-ORDER BYTE OF CONSTANT 

FADE 

95 

00 


66 


3TA 

ROL, X 


FEDS 

93 



69 


TYA 


Y-REG CONTAINS 1 

F6D9 

3S 



70 


SEC 



FEU A 

65 

IE 


71 


ADC 

R15L 

ADD 2 TO PC 

F 3 DC 

o5 

IE 


72 


3TA 

R15L 


F6DE 

90 

02 


73 


BCC 

SE T2 


F6L0 

EE 

IF 


74 


INC 

R15H 


F 6L2 

EO 



75 

SET2 

RTS 



F6L 3 

02 



76 

GET EL 

DFB 

SET-1 

( IX ) 

FA. 2 4 

F9 



77 

BRTBL 

DFB 

RTN-1 

(0) 

F6IZ5 

04 



73 


DFb' 

LD-1 

<2X> 

F 6E6 

9D 



79 


DFB 

BR-1 

( 1 )• 

FEE/ 

on 



30 


DFB 

ST-1 

(3X) 

FEES 

9E 



31 


DFB 

BNC — 1 

(2) 

F EL 9 

25 



32 


DFB 

LDAT-1 

<4X ) 

FEEA 

AF 



33 


DFB 

BC-1 

(3) 

F6EB 

16 



34 


DFB 

ST AT— 1 

( 5X ) 

F EEC 

82 



35 


DFB 

BP-1 

(4) 

FELD 

47 



86 


DFB 

LDDAT-1 

(6X> 

FSCE 

89 



37 


DFB 

EM-1 

(5) 

F6EF 

51 



S3 


DFB 

STDAT-1 

<7X> 

F sr- 0 

CO 



39 


DFB 

BZ-1 

(6) 

FEF 1 




90 


DFB 

POP— 1 

(SX) 

FEF 2 

C9 



91 


DFB 

ENZ-1 

(7) 

FEF3 

5E 



92 


DFB 

STPAT-1 

<9X5 

F El- 4 

82 



93 


DFB 

BM1-1 

(8) 

FEF 5 

65 



94 


DFB 

ADD-1 

(AX) 

FEFE 

DD 



95 


DFB 

BNM1-1 

(9) 

FEF 7 

EE 



96 


DFB 

SUB-1 

<BX) 

F 61 3 

05 



97 


DFB 

EK-1 

(A) 

FEF 9 

6 -J 



O 


DFB 

F'OPD-1 

(CX ) 

r EFA 

ES 



99 


DFB 

RS-1 

(B) 

FEED 

70 



100 


DFB 

CPR-1 

(DX ) 

FEFC 

93 



101 


DFB 

BS-1 

<C) 

FEED 

IE 



1 02 


DFB 

INR-1 

(EX ) 

EEEE 

E 7 



103 


DFB 

NIJL-1 

(D) 

FEFE 

65 



104 


DFB 

DCR-1 

(FX ) 

F 700 

E7 



105 


DFB 

NIJL-1 

(E) 

F/Ol 

E7 



106 


DFB 

NUL-l 

( UNUSED ) 

F 702 

E7 



107 


DFB 

NUL-1 

(F) 

r- 703 

10 

CA 


1 03 

SET 

BPL 

SET Z 

ALWAYS TAKEN 
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r /05 

B5 

00 


109 

LD 

LDA 

ROL, X 






1 10 

BK 

EOIJ 

*-l 


F 707 

3:5 

00 


1 1 1 


STA 

ROL 


F 7 09 

B5 

01 


1 12 


LDA 

K O H i X 

MOVE RX TO RO 

r /OB 

' C 

01 


113 


STA 

RCH 


l : /OD 

30 



114 


RTS 



F/OE 

A ~ 

F-1 

00 


1 15 

3T 

LDA 

ROL 


F 7 1 0 

cr 

7 •-« 

00 


113 


STA 

ROL. X 

MOVE RO TO RX 

F 7 1 2 

A C. 
r-« 

01 


117 


LDA 

R'OH 


F 7 1 4 

'75 

01 


1 13 


STA 

ROH, X 


F/13 

30 



119 


RTS 



t- 717 

A 5 

00 


120 

STAT 

LDA 

ROL 


F 7 1 9 

31 

00 


121 

3TAT2 

STA 

(ROL. X) 

STORE BYTE INDIRECT 

1- / IB 

AO 

00 


122 


LDY 

4*0 


r /id 

8:4 

ID 


1 23 

3TAT3 

STY 

R 1 4H 

INDICATE RO IS RESULT REG 

h /IF 

F3 

00 


124 

INK' 

INC 

ROL, X 


F 72 1 

DO 

02 


125 


BNE 

I NK2 

I NCR RX 

F723 

F3 

01 


1 23 


I NO 

ROH. X 


F 725 

30 



127 

INK2 

RTS 



F 726 

A 1 

00 


123 

LDAT 

LDA 

(ROL, X ) 

LOAD INDIRECT (RX) 

F/23 

I-. cr 

00 


129 


STA 

ROL 

TO RO 

F/2A 

AO 

00 


130 


LDY 

#so 


K/2C 

34 

01 


131 


STY 

ROH 

ZERO HIGH-ORDER RO BY 1 E 

F72I- 

FO 

ED 


132 


BEQ 

STAT3 

ALWAYS TAKEN 

F 730 

AO 

00 


1 33 

POP 

LDY 

4*0 

HIGH ORDER BYTE = 0 

f 732 

FO 

03 


134 


BEQ 

POP2 

ALWAYS TAKEN 

F/34 

20 

33 

F7 

1 8:5 

F'OF'D 

JCR 

DCR 

DECR RX 

F/37 

A 1 

00 


133 


LDA 

(ROL, X ) 

POP HIGH-ORDER BY f b ®RX 

F 7-3'? 

A3 



137 


TAY 


SAVE IN Y-REG 

r/3A 

20 

33 

F7 

1 33 

POP2 

•JSR 

DCR 

DECR RX 

F 7 3D 

A 1 

00 


1 39 


LDA 

(ROL, X) 

LOW -ORDER BYTE 

F73F 

O c. 

*-> > 

00 


140 


STA 

ROL 

TO RO 

F/41 

34 

01 


141 


STY 

ROH 


F/43 

AO 

00 


142 

POP3 

LDY 

4*0 

INDICATE RO AS LAST 

F' 745 

34 

ID 


143 


STY 

R14H 

RESULT REG 

F 747 

30 



144 


RTS 



f " 7 48 

20 

23 

F 7 

145 

LDDAT 

.JSR 

LDAT 

LOW BYTE TO RO, I NCR RX 

F/4B 

A1 

00 


143 


LDA 

(ROL, X ) 

HIGH-ORDER BYTE TO RO 

F/4D 

85 

01 


147 


STA 

ROH 


F74F 

4C 

IF 

F7 

143 


■JMP 

INK 

I NCR RX 

F/52 

20 

17 

F/ 

149 

ST DAT 

JSR 

STAT 

STORE INDIRECT LOW-ORDER 

F 755 

A £=- 
M 

01 


150 


LDA 

ROH 

BY IE AND I NCR RX. THEN 

F/57 

31 

00 


151 


STA 

(ROL, X ) 

STORE HIGH-ORDER BYTE. 

F/5? 

4C 

IF 

F7 

152 


JMP 

INK 

I NCR RX AND RETURN 

r 75C 

20 

63 

F/ 

1 53 

STF'AT 

JSR 

DCR 

DECR RX 

f 75J ■ 

A 5 

00 


154 


LDA 

ROL 


F 73 1 

81 

00 


155 


STA 

(ROL, X ) 

STORE RO LOW BYTE @RX 

F 7 33 

4C 

43 

F 7 

1 56 


JMP 

POPS: 

INDICATE RO AS LAST RSLT RE 

1 733 

B5 

00 


157 

DOR 

LDA 

ROL, X 


F 733 

DO 

02 


158 


BNE 

DCR2 

DECR RX 

F73A 

D3 

01 


159 


DEC 

ROH, X 


F / 3L- 

D3 

00 


130 

DOR 2 

DEC 

ROL, X 


F 73E 

30 



131 


RTS 



76F 

AO 

00 


132 

SUB 

LDY 

4*0 

RESULT TO 
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F//1 

31;: 



1 63 

OPR 

SEC 


NOTE Y-REG = 13*2 FOR CF'R 

F 7/2 

AS 

00 


164 


LDA 

rol 


F/74 

FS 

00 


1 65 


SBC 

ROL, X 


F/76 

99 

CO 

00 

166 


STA 

ROL, Y 

RO-RX TO RY 

1 >79 

A l_ 

ri.j 

01 


167 


LDA 

RCH 


F/7E 

F 5 

01 


163 


SBC 

ROH, X 


F/7D 

99 

oi 

00 

1 69 

SUB 2 

'STA 

ROH. Y 


F >80 

9S 



170 


TYA 


LAST RESULT REG*2 

F 781 

69 

00 


171 


ADC 

fc*0 

CARRY TO LSB 

F7S3 

SS 

ID 


172 


STA 

R14H 


F/S5 

60 



173 


RTS 



F/S6 

AS 

00 


174 

ADD 

LDA 

ROL 


f/so 

7 5 

00 


175 


ADC 

ROL, X 


F/3A 

pjCj 

00 


176 


STA 

ROL 

RO rRX TO RO 

r /sc 

AS 

01 


177 


,LDA 

ROH 


F 70E 

75 

01 


173 


ADC 

ROH, X 


F/VO 

AO 

00 


179 


LDY 

#$0 

RO FOR RESULT 

F/92 

FO 

L9 


ISO 


EEQ 

SUB 2 

FINISH ADD 

F 794 

AS 

IE 


131 

BS 

LDA 

R15L 

NOTE X-REO IS 12*2! 

r/96 

20 

19 

F 1 

1 S2 


.JSR 

STAT2 

PUSH LOW PC BY IE VIA R12 

F 799 

AS 

IF 


133 


LDA 

R15H 


F/9B 

20 

19 

FI 

134 


JSR 

STAT2 

PUSH HIGH-ORDER PC BYTE 

K 79E 

10 



1 35 

BR 

CLC 



F79F 

BO 

OE 


136 

BNC 

ECS 

BNC 2 

NO CARRY TEST 

F 7A1 

El 

IE 


1 37 

BR1 

LDA 

( R 1 5L ) , Y 

DISPLACEMENT BY 1 E 

F 7 A3 

10 

01 


133 


EPL 

BR2 


F/A5 

S3 



139 


DEY 



K /A6 

65 

IE 


190 

BR2 

ADC 

R 1 5L 

ADD TO PC- 

F 7 AS 


IE 


191 


STA 

R15L 


F7AA 

93 



192 


TYA 



F/AB 

65 

IF 


193 


ADC 

R15H 


F 7 AD 

Cj 

IF 


194 


STA 

R15H 


F7AF 

60 



195 

BNC 2 

RTS 



F 7 BO 

BO 

EC 


196 

ec 

BCS 

BR 


F7B2 

60 



197 


RTS 



F7B3 

OA 



1 93 

BP 

ASL 

A 

DOUBLE RESULT-REG INDEX 

P 7B4 

AA 



199 


TAX 


TO X-REG FOR INDEXING 

F7B5 

B5 

01 


200 


LDA 

ROH, X 

TEST FOR PLUS 

F/B7 

10 

ES 


201 


BPL 

ER1 

BRANCH IF SO 

F/B9 

60 



202 


RTS 



F7BA 

OA 



203 

BM 

ASL 

A 

DOUBLE RESULT-REG INDEX 

F 7BB 

AA 



204 


TAX 



F/BC 

B5 

01 


205 


LDA 

ROH, X 

TEST FOR MINUS 

F 7 BE 

30 

El 


206 


BMI 

BR1 


F/CO 

60 



207 


RTS 



F 7C1 

OA 



203 

BZ 

ASL 

A 

DOUBLE RESULT-REG INDEX 

r 7C2 

AA 



209 


TAX 



F 7C3 

B5 

00 


210 


LDA 

ROL, X 

TEST FOR ZERO 

F 7C5 

IF, 

01 


21 1 


ORA 

ROH, X 

(BOTH BYTES) 

F7C7 

FO 

DS 


212 


EEQ 

ER1 

BRANCH IF SO 

F/C9 

60 



213 


RTS 



F 7CA 

OA 



214 

BNZ 

ASL 

A 

DOUBLE RESULT-REG INDEX 

F7CB 

AA 



215 


TAX 



F/CC 

ES 

00 


216 


LDA 

ROL, X 

TEST FOR NONZERO 
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FADE: 5 

F/CE 

15 

01 

217 


OF' A 

ROH, X 

(BOTH BYTES) 

F /DO 

DO 

OF 

213 


ONE 

E'Rl 

BRANCH IF SO 

F 7 02 

60 


219 


RTS 



F / 03 

OA 


220 

emi 

A3L 

A 

DOUBLE RESIJLT-REG INbEX 

F/04 

AA 


221 


TAX 



F 7 U 5 

B5 

00 

222 


LDA 

ROL, X 

CHECK BOTH BY I ES 

r/u7 

35 

'01 

-L iL -Z 


’and 

ROH, X 

FOR SFF (MINUS 1) 

F 70? 

49 

FF 

224 


EOF 

**FF 


F /OB 

FO 

C4 

225 


BEQ 

BR1 

BRANCH IF SO 

F 70D 

60 


226 


RTS 



F/OC 

OA 


227 

bum l 

ASL 

A 

DOUBLE' RESIJLT-REG INUEX 

F/OF 

AA 


223 


TAX 



t /to 

B5 

00 

229 


LDA 

ROL, X 


F/E2 

35 

01 

230 


AN Li 

ROH, X 

CHK BOTH EYTES FOR NO SFF 

F/E4 

49 

FF 

{ 

23 1 


iftuR 

*SFF 


F/t6 

DO 

09 

232 


ENE 

BR1 

BRANCH IF NOT MINUS l 

F 7E3 

60 


233 

NIJL 

RTS 



F /E9 

A 2 

13 

234 

RS 

LDX 

**13 

12*2 FOR R 1 2 AS STK PNTR 

F 7EB 

20 

66 

F7 235 


J3R 

DOR 

DECR STACK POINTER 

F 7hE 

A 1 

00 

236 


LDA 

(ROL, X) 

POP HIGH RE 1 URN ADR TO PC 

F7F0 

35 

IF 

237 


ST A 

R15H 


F7F2 

20 

66 

F / 233 


JSR 

DOR 

SAME FOR LOW-ORDER BY TE 

F7F5 

A 1 

00 

239 


LDA 

(ROL, X) 


F 7F7 

B5 

IE 

240 


STA 

R15L 


F 7F? 

60 


241 


RTS 



F /FA' 

4C 

07 

F6 242 

RTN 

JMP 

RTNZ 


■f 

CCE 

SSFIJL A3 

SEMBLY: NO 

ERRORS 
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£r lance : s 

WEE i 1 

7 I l\| *' 

iKr RE 

i hR 








ADD 

K/S6 

0094 











BC 

F 7 BO 

0033 











BF 

F706 

0097 











BM 

F 7BA 

0007 











Btll 

K/D3 

0093 











BfJC 

P/9F 

000 1 











BNC2 

F/AF 

0 1 3 A 











BT4M 1 

F 7 BE 

0095 











DNZ 

K/CA 

0091 











BP 

F7B3 

0005 











BR 

r 79E 

0079 

0 1 96 










BRJ 

1 7A1 

0201 

0206 

0212 

0213 

0225 

0232 






BR2 

F7A6 

0 1 38 











B'.’TBL 

F6E4 

0055 











BS 

F794 

0 1 0 1 











B Z 

r^ci 

F771 

0039 











err? 

0 1 00 











OCR 

F766 

0 1 04 

0135 

0 1 33 

0 1 53 

0235 

0233 






DCIv'2 

F76C 

0 1 50 











inr 

F71F 

0102 

0 1 43 

0 1 52 









INK 2 

r 725 

0 1 25 











LU 

F705 

0073 











1 OAT 

F726 

0002 

C 1 45 










LL'DAT 

F743 

003 A 











NI 1! . 

f- 7 E 3 

0103 

0 105 

0106 

0107 








Of-’TBL 

P6E3 

0049 











FOP 

F7SO 

0090 











pr;i ,j 2 

P73A 

0134 











POP3 

F743 

0 1 5A 











POPD 

F/34 

0090 











RO! 1 

OOO 1 ( Z ) 

00A5 

0112 

0 1 1 3 

0117 

0113 

0 1 26 

0131 

0141 

0147 

0150 

0159 



01 A7 

0 1 63 

0 1 69 

0177 

0173 

0200 

0205 

0211 

0217 

0223 

0230 

ROL 

0000 ( Z ) 

00 A3 

0 1 09 

0111 

0115 

01 16 

0 1 20 

0121 

0124 

0123 

0129 

0136 



0139 

0 1 40 

0 1 46 

0151 

0154 

0 1 55 

015/ 

0160 

0164 

0165 

0166 



0174 

0 1 75 

0 1 76 

0210 

0216 

0222 

0229 

0236 

0239 



P14H 

00 1 D ( Z ) 

0044 

005/ 

0123 

0143 

0172 







R15H 

00 1 F ( Z ) 

0020 

0033 

0054 

0074 

0 1 33 

0 1 93 

0194 

0237 




R 1 5L 

00 1 E 

0026 

0031 

0037 

0042 

0052 

0063 

0064 

0067 

0071 

0072 

0131 



0137 

0 1 90 

0 191 

0240 








RESTORE 

FF3F 

0062 











RO 

1 7E9 

0099 











R'l N 

F 7FA 

007/ 











RTN2 

FAC 7 

0242 











S 1 6 PAG 

00F7 

0034 











SAVE 

l‘F 4 A 

0024 











SET 

F 7 0 3 

007 A. 











SLT 2 

F6E2 

0073 











Stl Z 

1 ACF 

0 1 03 











ST 

F70E 

0030 











SI AT 

F 717 

0034 

0149 










STATS 

F719 

0 1 32 

0 1 34 










STATS 

F 7 1 D 

0 1 3:2 











S i DAT 

F752 

0003 











S'l PAT 

F75C 

0092 











SUB 

F7AF 

0096 











SUB 2 

F77D 

0130 











SW 1 A 

b 639 












SU16B 

F 1 9 2 

00 SO 











1 6C 

FAT’S 

00 S? 











out 60 

FA'-'E 

00 32 
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APPLE-1 1 MACHINE CODE RELOCATION PROGRAM 

Quite frequently I have encountered situations calling for 
relocation of machine language (not BASIC) programs on my 6502- 
based APPLE-II computer. Relocation means that the new version must 
run properly from different memory locations than the original. 
Because of the relative branch instruction, certain small 6502 
programs need simply be moved and not altered. Others require only 
minor hand modification, which is simplified on the APPLE-II by the 
built-in disassembler which pinpoints absolute memory reference 
instructions such as JMPs and JSRs . However, most of the situations 
which I have encountered involved rather lengthy programs containing 
multiple data segments interspersed with code. For example, I once 
spent over an hour to hand-relocate the SK byte APPLE8II monitor and 
BASIC to run from RAM addresses and at least one error probably 
went by undetected. That relocation can now be accomplished in a 
couple minutes using the relocation program described herein. 
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The following ^situations call for program relocation. 

(1) 

Two programs which were written to run in identica 
locations must now reside and run in memory concurrently. 

(2) 

A prograrfi currently runs from ROM. In order to modify 
its operation experimentally, a version must be genera- 
ted which runs from RAM (different addresses). 

(3) 

A program currently running in RAM must be converted to 
run from EPROM or ROM addresses. 

(4) 

A program currently running on a 16K machine must be 
relocated in order to run on a 4K machine. Furthermore, 
the relocation may have to be performed on the smaller 


machine . 

(5) 

Due to memory mapping differences, a program running on 
an APPLE- I (or other 6502 based) computer falls into 
unusable address space. on an APPLE-II (or other) computer. 

(6) 

Due to operating system variable assignment differences 
either the page-zero or non-page-zero variable allocation 
for a specific program may have to be modified when moving 
the program from one make of computer to another. 

(7) 

A program exists as several chunks strewn about memory 
which must be combined in a single, contiguous block. 
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( 8 ) 


(9) 


( 10 ) 


page 3 


A program has outgrown the available memory space and 
must be relocated to a larger 'free' space. 

A program insertion or deletion requires a chunk of the 
program to move a few bytes up or down. 

On a whim, the user wishes to move a program. 
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PROGRAM MODEL 

It is easy to visualize relocation as taking a program which 
resides and runs in a 'source block' of memory and creating a 
modified version in a 'destination block' which runs properly. 

This model dictates that the relocation must be performed in an 
environment in which the program may in fact Reside in both blocks. 

In many cases, the relocation is being performed because this is 
impossible. For example, a program written to begin at location 
$400 on an APPLE-I ($ stands for hex) falls in the APPLE-II screen 
memory range. It must be loaded elsewhere on the APPLE-II prior 
to relocation . 

A more versatile program model is as follows. A program or 
section of a program runs in a memory range termed the 'source block 1 
and resides in a range termed the 'source segments' . Thus a program 
written to run at location $400 may reside at location $800. The 
program is to be relocated so that it will run in a range termed 
the 'destination block' although it will reside in a range termed 
'destination segments' (not necessarily the same). Thus a program 
may be relocated such that it will run from location $D000 (a ROM 
address) yet reside beginning at location $C00 prior to being saved 
on tape or used to burn EPROMs (obviously, the relocated program 
cannot immediately reside at locations reserved for ROM). In some 
cases the source and destination segments may overlap. 
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BLOCKS AND SEGMENTS EXAMPLE 


Location during 
Rel ocat ion 



Relocation 


SOURCE BLOCK: 
SOURCE SEGMENTS: 


$400-$787 

S800-SB87 


DEST BLOCK: $DOOO-$D387 

DEST SEGMENTS: $C00-$F87 
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THE RELOCATION ALGORITHM 

(1) Set SOURCE PTR to beginning of source segment and DEST PTR 
to beginning of destination segment. 

(2) Copy 3 bytes from source segment (using SOURCE PTR) to temp 
INST area. 

(3) Determine instruciton length from opcode (1, 2, or 3 byte). 

(4) If two byte instruction with non-zero-page addressing mode 
(immediate or relative) then go to (7). 

(5) If two byte instruction then clear 3rd byte so address field 
is 0-255 (zero page). 

(6) If address field (2nd and 3rd bytes of INST area) falls within 
source block , then substitute 

ADR - SOURCE BLOCK BEGIN + DEST BLOCK BEGIN 

(7) Move 'length' bytes from INST area to dest segment (using 
DEST PTR). Update SOURCE and DEST PTRs by length. 

(8) If SOURCE PTR is less than or equal to SOURCE SEGMENT END 
then goto (2), else done. 


Distributed under the Creative Commons License on page 5 


Page 0145 of 0213 




The Woz Wonderbook - 1977 -- DigiBarn Computer Museum - Steve Wozniak, Apple Computer Inc. 


page 7 


DATA SEGMENTS 

The problem with relocating a large program all at once is that 
data (tables, text, etc.) may be interspersed throughout the code. 

Thus data may be 'relocated' as though it were code or might cause 
some code not to be relocated due to boundary uncertainty introduced 
when the data takes on the multi-byte attribute of code. This problem 
is circumvented by considering the 'source segments' and 'destination 
segments' sections to contain both code and data segments. 

CODE AND DATA SEGMENTS EXAMPLE 


$800 ► 


$B87 


Code Segment 
$800-$892 


Data Segment 
$893-$992 


Code Segment 
$993-$ABF 


Data Segment 
$AC0-$ACF 


Code Segment 
$ACF-$B87 


The source code segments are relocated to the 'destination segments' 
area and the source data segments are moved . Note that several commands 
will be necessary to accomplish the complete relocation. 
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USAGE 

1. Load RELOC by hand or off tape into memory locations $3A6-$3FA. 

Note that locations $3FB-$3FF are not disturbed by tape load 
versions to insure that the APPLE-II interrupt vectors are not 
clobbered. The monitor user function Y c (Control-Y) will now 
call RELOC as a subroutine at location $3F8. 

2. Load the source program into the 'source segments' area of memory 
if it is not already there. Note that this need not be where 
the program normally runs. 

3. Specify the source and destination block parameters, remembering 
that the blocks are the locations that the program normally 

runs from, not the locations occupied by the source and destination 
segments during the relocation. If only a portion of a program 
is to be relocated then that portion alone is specified as the 
block . 

* BEST BLOCK BEG < SOURCE BLOCK BEG . END Y C * 

Note that the syntax of this command closely resembles that of 
the MONITOR 'MOVE' command. The initial is generated by 

the MONITOR, not typed by the user. 
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4. Move all data segments and relocate all code segments in sequential 
(increasing address) order. 

First Segment (if CODE) 

* DEST SEGMENT BEG < SOURCE SEGMENT BEG . END Y C 
F i rs t Segment (if DATA) 

* DEST SEGMENT BEG < SOURCE SEGMENT BEG . END M 

Subsequent segments (if CODE) 

* . SOURCE SEGMENT END Y c (Relocation) 

Subseque nt segments (if DATA) 

* . SOURCE SEGMENT END M (Move) 

Note that it is wise to prepare a list of segments (code and data) 
prior to relocation. 


If the relocation is performed 'in place' (SOURCE and DEST 
SEGMENTS reside in identical locations) then the SOURCE SEGMENT 
BEG parameter may be ommitted from the first segment relocate 


( or 


move ) . 
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EXAMPLES 


1. Straightforward Relocation 


Program A resides and runs in locations $800-$97F. The relo- 
cated version will reside and run in locations $A00-$B7F. 


SOURCE SEGMENTS 


DEST SEGMENTS 


$800 h- 


$97F-*- 


CODE 

$800-$88F 

$A00 

CODE 

$A00-$A8F 

DATA 


DATA 

$890-$8AF 


$A90-$AAF 

CODE 


CODE 

$8B0-$90F . 


$AB0-$B0F 

DATA 


DATA 

$910-$93F 


$B10-$B3F 

CODE 


CODE 

$940-$97F 

$B7F 

$B40-$B7F 


SO-RCE BLOCK $800-$97F DEST BLOCK $A00-$B7F 

SOURCE SEGMENTS $S00-$97F DEST SEGMENTS $A00-$B7F 

(a) Load RELOC 

(b) Define blocks 

* A00 < 800 . 97F Y C * 

(c) Relocate first segment (code). 

* A00 < 800 . 88F Y C 
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(d) Move and relocate subsequent segments in order. 


* 

. 8AF 

M 

(data) 

* 

. 90F 

Y C 

( code ) 

* 

. 93F 

M 

( data) 

* 

, 97F 

Y C 

( code ) 


Note that step (d) illustrates abbreviated versions of 
the following commands: 


A90 

< 

890 

. 8AF M 

( data) 

ABO 

< 

8B0 . 

. 90F Y C 

( code ) 

BIO 

< 

910 , 

. 93F M 

( data ) 

B40 

< 

940 . 

97F Y C 

( code ) 
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2. Index into block 

Assume that the program of example 1 uses an indexed reference 
into the data segment at ?890 as follows: 

LDA 7 BO , X 

The X-REG is presumed to contain $E0-$FF. Because $7B0 is 
outside the source block, it will not be relocated. This may 
be handled in one of two ways. 

(a) The exception is fixed by hand, or 

(b) The block specifications begin one page lower than the 
addresses at which the original and relocated programs 
begin to account for all such 'early regerences’. In 
step (b) of example (1) change to. 

* 900 < 700 . 97F Y C * 

Note that program references to the ’prior page’ (in this 
case the $7XX page) which are not intended to be relocated 

will be. 


Distributed under the Creative Commons License on page 5 


Page 0151 of 0213 




The Woz Wonderbook - 1977 -- DigiBarn Computer Museum - Steve Wozniak, Apple Computer Inc. 


page 13 

3. Immediate Address References 

Assume that the program of example (1) has an immediate ref- 
erence which is an address. For example, 

LDA #$3F 
STA LOCO 
LDA #$08 
STA LOCI 
JMP ( LOCO ) 

In this example, the LDA #$08 will not be changed during relocation 
and the user will have to hand-modify it to $0A. 

4. User function (Y^) programs 


Relocating programs such as RELOC introduces another irregularity. 

C 

Because RELOC uses the MONITOR user function command (Y ) 
its entry point must remain fixed at $3F8 . The rest of RELOC 
may be relocated anywhere in memory (which is trivial since 
RELOC contains no absolute memory references other than the 
JMP at $3F8). The user must leave the JMP at $3F8 undisturbed 
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5. Unusable block ranges 

A program was written to run from locations $400-$78F on an 
APPLE-I. A version which will run in ROM locations $D000-$D38F 
must be generated. The source (and destination) segments may 
reside in locations $S00-$B8F on the APPLE-I I where relocation 
is performed. 


SEGMENTS, SOURCE AND DEST 


Locations 
during 
re 1 ocat ion 





$800 — ►* 

CODE 

$800-$97F 



DATA 

$980-$9FF 

> 


CODE 

$A00-$B8F ! 


vuul 1 



Runs from locations 
$400-$78F on APPLE-I 
but must be relocated 
to run from locations 
$D000-$D38F on the 
APPLE-I I . 


SOURCE BLOCK $400-$78F 


DEST BLOCK $D000-$B38F 


SOURCE SEGMENTS $800-$B8F 


DEST SEGMENTS $800-$B8F 


( a ) Load RELOC 

(b) Load original program into locations $800-$B8F (despite the 
fact that it doesn't run there). 

(c) Specify block parameters (i.e. where the original and 
relocated versions will run) 

* D000 < 400 . 78F Y C * 
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Move and relocate all segments in order. 

* 800 < 800 . 97F Y C (first segment, code) 

* . 9FF M (data) 

* . B8F Y c (code) 

Note that because the relocation is done 'in place' the 
SOURCE SEGMENT BEG parameter is the same as the DEST SEGMENT 
BEG parameter ($800) and need not be specified. The initial 
segment relocation command may be abbreviated as follows. 


* 800 < . 97F Y c 


6. The program of example (1) need not be relocated but the page 
zero variable allocation is from $30 to $3F . Because these 
locations are reserved for the APPLE-II system monitor, the 
allocation must be changed to locations $80-$8F . The source 
and destination blocks are thus not the program but rather 
the variable area. 

SOURCE BLOCK $20-$2F DEST BLOCK $80-$8F 

SOURCE SEGMENTS $800-$97F DEST SEGMENTS $800-$97F 

(a) Load RELOC 

(b) Define blocks 

* 80 < 20.2F Y C * 

(c) Relocate code segments and move data segments in place. 

* 800 < . 88F Y C (code) 

* . 8AF M (data) 

* . 90F Y C (code) 

* . 93F M (data) 

* . 97F Y C (code) 


Distributed under the Creative Commons License on page 5 


Page 0154 of 0213 




The Woz Wonderbook - 1977 -- DigiBarn Computer Museum - Steve Wozniak, Apple Computer Inc. 

page 16 

7. Split blocks with cross-referencing 

? Program A resides and runs in locations $800-$8A6. - Program B 

resides and runs in locations $900-$9Fl. A single, contiguous 

program is to be generated by moving program B so that it 

immediately follows program A. Each of the programs contains 

memory references within the other. It is assumed that the 
( * 

programs contain no data segments. 

SOURCE SEGMENTS DEST SEGMENTS 



SOURCE BLOCK $900-$9Fl DEST BLOCK $8A7-$998 

SOURCE SEGMENTS $800-$8A6 (A) DEST SEGMENTS $800-$8A6 (A) 
$900-$9Fl (B) $8A7-$998 (B) 

(a) Load RE LOG 

(b) Define blocks (program B only) 

* 8A7 < 900 . 9F1 Y C * 
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(c) Relocate each of the two programs ' individually . Program A 
must be relocated even though it does not move. 

♦ 800 <. 8A6 Y c (program A, ’in place’) 

* 8A6 < 900 . 9F1 Y C (program B, not 'in place') 

Note that any data segments within the two programs would 
necessitate additional relocation and move commands. 


8. Code deletion. 


4 bytes of code are to be removed from within a program and the 
program is to contract accordingly. 


SOURCE SEGMENTS 


DEST SEGMENTS 



CODE 

$800-$88F 

$800 

CODE 

$800 


$800-$88F 


DATA 

S890-$8AF 


DATA 

$890-$8AF 

Remove 4 

CODE 


CODE 

$8B0-$90B 

bytes here 

$8B0-$90F 


( $8C0-$8C3 ) 

DATA 

$910-$93F 


DATA 

$90C-$93B 

S97F 

CODE 

$940-$97F 

$97B 

CODE 

$93C-$97B 


SOURCE BLOCK $8C4-$97F 
SOURCE SEGMENTS $800-$88F (code) 
$890-$8AF (data) 
$8B0-$SBF (code) 
$8C4-$90F (code) 
$910-$93F (data) 

co/in_C07F ( cnrip'i 
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(a) Load RELOC 

(b) Define blocks 

* 8C0 < 8C4 . 97F Y C * 

(c) Relocate code segments and move data segments in ascending 
address sequence. 

* 800 <. 88F Y C (code, 'in place') 

* . 8AF M (data) 

* . 8BF Y c (code) 

* 8C0 < 8C4 . 90F Y C (code, not 'in place') 

* . 93F M (data) 

* . 97F Y C (code) 


(d) Relative branches crossing the deletion boundary will be 

incorrect since the relocation process does not modify them 
(only zero-page and absolute memory references). The user 



ijjfflm.-mi.nu 
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9. Relocating the APPLE-II monitor ( $F800-$FFFF ) to run in RAM 


(SSOO-SFFF) 


SOURCE BLOCK $F700-$FFFF 
(see example (2) ) 


DEST BLOCK $700-$FFF 


SOURCE SEGMENTS $F800-$F961 

(code ) 

DEST SEGMENTS $800-$961 

( code ) 

$F962-$FA42 

(data) 

$962-$A42 

(data) 

$FA43-$FB18 

( code ) 

$A43-B18 

( code ) 

$FB19-$FB1D 

(data) 

$B19-$B1D 

(data) 

$FB1E-$FFCB 

(code) 

$B1E-$FCB 

( code ) 

$FFCC-$FFFF 

(data) 

$FCC-$FFF 

(data) 


IMMEDIATE ADDRESS REFS (see example (3) ) 


$FFBF 

$FEA8 

(more if not relocating to page boundary) 


(a) Load RELOC 

(b) Block parameters 

* 700 < F700 

(c) Segments 

* 800 < F800 

* . FA42 M 

* . FB18 Y C 

* . FB1D M 

* . FFCB Y C 

* . FFFF M 


FFFF Y C * 


F961 Y C (first segment, code) 
( data ) 

( code ) 

(data) 

( code ) 

( data) 
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(c) Immediate address references 


* FBF ; E 

* EA8 ; E 


(was $FE) 
(was $FE ) 
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OTHER 6502 SYSTEMS 

The following details illustrate features specific to the APPLE-II 
which are used by RELOC . If adapted to other systems, the convenient 
and flexible parameter passing capability of the APPLE-II monitor 
may be sacrificed. 

1. The APPLE-II monitor command 

* A 4 < A x . A 2 Y c (Ai, A 2 , and A 4 are addresses) 
vectors to location $3F8 with the value A^ in locations $3C (lo 
and $3D (high), A g in locations $3E (low) and $3F (high), 
and A 4 in locations $42 (low) and $43 (high). Location 
$34 ( YSAV ) holds an index to the next character of the command 
buffer (after the Y c ) . The command buffer (IN) begins 
at $200. 

2. If Y c is followed by an then the block parameters are 

simply preserved as follows: 


Parameter Preserved at SWEET16 Reg Name 


DEST 

BLOCK 

BEG 

$8, $9 

TOBEG 

SOURCE 

BLOCK 

BEG 

$2 , $3 

FRMBEG 

SOURCE 

BLOCK 

END 

$4 , 

$5 

FRMEND 

If Y C is 

not followed by 

and 

r * i 

then a segment relocation is 


initiated at REL0C2 ($3BB). Throughout, Al ($3C, $3D) is the 
source segment pointer and A4 ($42, $43) is the destination 
segment pointer. 
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4. INSDS2 is an APPLE-II monitor subroutine which determines the 

length of a 6502 instruction in the variable LENGTH (location $2F) 
given the opcode in the A-REG. 


Instruction type LENGTH 

Invalid 0 

1 byte ( 0 

2 byte 1 

3 byte 2 


5. The code from XLATE to SW16RT ($3D9-$3E6) uses the APPLE-II 
16-bit interpretive machine, SWEET16. The target address of 
the 6502 instruction being relocated (locations $C low and 
$D high) occupies the SWEET16 register named ADR, If ADR is 
between FRMBEG and FRMEND (inclusive) then it is replaced by 
ADR - FRMBEG + TOBEG . 

6. NXTA4 is and APPLE-II monitor subroutine which increments A1 
(source segment index) and A4 (destination segment index). 

If A1 exceeds A2 (source segment end) then the carry is set, 
otherwise it is cleared. 
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6502 RELOCATION SUBROUTINE 

4:36 P.M., 11/10/1977 PAGE: 1 


1 

TITLE '6502 RELOCATION 

SUBROUT 

2 

* * 

********************** 

* * 

3 

* 


* 

4 

* 

6502 RELOCATION 

* 

5 

* 

SUBROUTINE 

* 

6 

* 


* 

7 

,* 

1. DEFINE BLOCKS 

* 

8 

it 

* A 4 <A 1 . A 2 ~Y 

* 

9 

* 

( ~ Y IS CRTL-Y) 

* 

10 

* 


* 

11 

* 

2. FIRST SEG 

* 

12 

it 

*A 4 <A 1 . A2 ~Y 

* 

13 

* 

(IF CODE) 

* 

14 

* 


* 

15 

★ 

*A4 <A1 . A2 M 

* 

16 

i* 

(IF MOVE) 

* 

17 

* 


* 

18 

* 

3. SUBSEQUENT SEGS 

* 

19 

* 

* . A2 "Y OR * . A2 M 

* 

20 

★ 


* 

21 

* 

WOZ 11-10-77 

* 

22 

* 

APPLE COMPUTER INC. 

* 

23 

* 


* 

24 

25 

************************** 

PAGE 


Distributed under the Creative Commons License on page 5 


Page 0162 of 0213 




The Woz Wonderbook - 1977 -- DigiBarn Computer Museum - Steve Wozniak, Apple Computer Inc. 


4:36 P.M. , 


RELOCATION SUBR EQUATES . 

11/10/1977 PAGE: 2 

26 SUBTTL RELOCATION SUBR EQUATES 


27 

R1L 

EPZ 

$2 

28 

INST 

EPZ 

$B 

29 

LENGTH 

EPZ 

$2F 

30 

YSAV 

EPZ 

534 

31 

AIL 

EPZ 

$ 3C 

32 

A4L 

EPZ 

$42 

33 

IN 

EQU 

$200 

34 

SW1 6 

EQU 

5F689 

35 

INSDS2 

EQU 

$F88E 

36 

NXTA4 

EQU 

$FCB4 

37 

FRMBEG 

EPZ 

51 

38 

FRMEND 

EPZ 

52 

39 

TOBEG 

EPZ 

54 

40 

ADR 

EPZ 

56 

41 


PAGE 



SWEET16 REG 1. 

3-BYTE INST FIELD. 

LENGTH CODE. 

CMND BUF POINTER. 

APPLE-I I MON PARAM AREA. 
APPLE-I I MON PARAM REG 4 
MON CMND BUF. 

SWEET16 ENTRY. 
DISASSEMBLER ENTRY. 
POINTER INCR SUBR. 

SOURCE BLOCK BEGIN. 
SOURCE BLOCK END. 

DEST BLOCK BEGIN. 

ADR PART OF INST. 
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6502 

RELOCATION SUBROUTINE 

4:36 

P.M. , 

11/10/1977 



PAGE: J 





42 

SUBTTL 

6502 RELOCATION 

SUBROUTINE 





43 


ORG 

$ 3A6 


03A6 

A4 

34 


44 

RELOC 

LDY 

YSAV 

CMND BUF POINTER, 

03A8 

B9 

00 

02 

45 


LDA 

IN, Y 

NEXT CMND CHAR. 

03AB 

C9 

AA 


46 


CMP 

# $aa 

' * ' ? 

0 3AD 

DO 

OC 


47 


BNE 

RELOC 2 

NO, RELOC CODE SEG. 

0 3AF 

E 6 

34 


48 


INC 

YSAV 

ADVANCE POINTER. 

0 3B 1 

A 2 

07 


49 


LDX 

#$7 


0 3B3 

B5 

3C 


50 

INIT 

LDA 

AIL, X 

MOVE BLOCK PARAMS 

03B5 

95 

02 


51 


STA 

R1L, X 

FROM APPLE-II MON 

03B7 

CA 



52 


DEX 


AREA TO SWl 6 AREA. 

03B8 

10 

F9 


53 


BPL 

INIT 

R1 =SOURCE BEG, R2« 

0 3B A 

60 



54 


RTS 


SOURCE END, R4=DEST BE< 

0 3BB 

AO 

02 


55 

RELOC 2 

LDY 

# $2 


0 3BD 

Bl 

3C 


56 

GETINS 

LDA 

(AIL) , Y 

COPY 3 BYTES TO 

0 3BF 

99 

OB 

00 

57 


STA 

INST, Y 

SW16 AREA. 

0 3C2 

88 



58 


DEY 



0 3C3 

10 

F 8 


59 


BPL 

GETINS 


0 3C5 

20 

8E 

F 8 

60 


JSR 

INSDS2 

CALCULATE LENGTH OF 

0 3C8 

A6 

2F 


61 


LDX 

LENGTH 

INST FROM OPCODE. 

0 3CA 

CA 



62 


DEX 


• 0=1 BYTE, 1=2 BYTE, 

0 3CB 

DO 

OC 


63 


BNE 

XLATE 

2=3 BYTE. 

03CD 

A5 

OB 


64 


LDA 

INST 


0 3CF 

29 

OD 


65 


AND 

#$D 

WEED OUT NON-ZERO-PAGE 

0 3D1 

FO 

14 


66 


BEQ 

STINST 

2 BYTE INSTS (IMM) . 

03D3 

29 

08 


67 


AND 

#$8 

IF ZERO PAGE ADR 

0 3D5 

DO 

10 


68 


BNE 

STINST 

THEN CLEAR HIGH BYTE. 

03D7 

85 

OD 


69 


STA 

INST+2 


0 3D9 

20 

89 

F 6 

70 

XLATE 

JSR 

SWl 6 

IF ADR OF ZERO PAGE 

0 3 DC 

22 



71 


LD 

FRMEND 

OR ABS IS IN SOURCE 

0 3DD 

D 6 



72 


C PR 

ADR 

( FRM) BLOCK THEN 

0 3DE 

02 

06 


73 


BNC 

SW16RT 

SUBSTITUTE ADR- 

03E0 

26 



74 


LD 

ADR 

SOURCE BEG+DEST BEG. 

03E1 

Bl 



75 


SUB 

FRMBEG 


03E2 

02 

02 


76 


BNC 

SW16RT 


03E4 

A4 



77 


ADD 

TOBEG 


03E5 

36 



78 


ST 

ADR 


03E6 

00 



79 

SW16RT 

RTN 



03E7 

A2 

00 


80 

STINST 

LDX 

#$0 


0 3E9 

B 5 

OB 


81 

STINS2 

LDA 

INST, X 


0 3EB 

91 

42 


82 


STA 

(A4L) , Y 

COPY LENGTH BYTES 

0 3ED 

E8 



83 


INX 


OF INST FROM 


20 

B4 

FC 

84 


JSR 

NXTA4 

SWl 6 AREA TO 

U3F1 

C 6 

2F 


85 


DEC 

LENGTH 

DEST SEGMENT. UPDATE 

0 3F 3 

10 

F4 


86 


BPL 

STINS2 

SOURCE, DEST SEGMENT 

0 3F5 

90 

C 4 


87 


BCC 

RELOC 2 

POINTERS. LOOP IF NOT 

0 3F7 

60 



88 


RTS 


BEYOND SOURCE SEG END. 





89 


ORG 

S3F8 


03F8 

4C 

A6 

03 

90 

USRLOC 

JMP 

RELOC 

ENTRY FROM MONITOR. 

****** * * SUCCESSFUL 

ASSEMBLY: 

NO ERRORS 
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CROSS-REFERNCE: 6502 RELOCATION SUBROUTINE 


AIL 

003C 

0050 

0056 


A4L 

0042 

0082 



ADR 

0006 

0072 

0074 

0078 

FRMBEG 

0001 

0075 



FRM END 

0002 

0071 



GETINS 

0 3BD 

0059 



IN 

0200 

0045 



INIT 

0 3B3 

0053 



INSDS2 

F88E 

0060 



INST 

0 0 0B 

0057 

0064 

0069 0081 

LENGTH 

002F 

0061 

0085 


NXTA4 

FCB 4 

0084 



R1L 

0002 

0051 



RELOC 

03A6 

0090 



RELOC2 

0 3BB 

0047 

0087 


STINS2 

0 3E9 

0086 



STINST 

03E7 

0066 

0068 


SWl 6 

F689 

0070 



SW16RT 

03E6 

0073 

0076 


TOBEG 

0004 

0077 



USRLOC 

03F8 




XLATE 

0 3D9 

0063 



YSAV 

0034 

0044 

0048 



FILE: 



Distributed under the Creative Commons License on page 5 




The Woz Wonderbook - 1977 -- DigiBarn Computer Museum - Steve Wozniak, Apple Computer Inc. 


This page is not part of the original Wonderbook 


Distributed under the Creative Commons License on page 5 


Page 0166 of 0213 




The Woz Wonderbook - 1977 -- DigiBarn Computer Museum - Steve Wozniak, Apple Computer Inc. 


The Woz Wonderbook 


DOCUMENT 



This page is not part of the original Wonderbook 


Distributed under the Creative Commons License on page 5 







The Woz Wonderbook - 1977 -- DigiBarn Computer Museum - Steve Wozniak, Apple Computer Inc. 


This page is not part of the original Wonderbook 


Distributed under the Creative Commons License on page 5 


Page 0168 of 0213 




The Woz Wonderbook - 1977 -- DigiBarn Computer Museum - Steve Wozniak, Apple Computer Inc. 


RENUMBERING AND APPENDING 
BASIC PROGRAMS 
on the 

APPLE-I I COMPUTER 


S. Wozniak (WOZ) 
November 15, 1977 


Distributed under the Creative Commons License on page 5 


Page 0169 of 0213 




The Woz Wonderbook - 1977 -- DigiBarn Computer Museum - Steve Wozniak, Apple Computer Inc. 


page 1 

RENUMBERING AND APPENDING APPLE-II BASIC PROGRAMS 

The answer to the question "what do 5, 11, 36, 150, 201, and 588 
have in common?" is given as "adjacent rooms in the Warsaw Hilton'^ 
but might just as well be "adjacent line numbers in my last BASIC 
program." The laws of entropy insure that the line numbers of a 
debugged and operational BASIC program give the appearance of having 
been selected by a KENO machine.* Many a time I have spent an extra 
hour to retype a finished program while spacing the line numbers 
evenly just to make it 'look good'. 

Another difficulty which I have experienced is joining two 
BASIC programs into a single, larger one. This 'append' operation 
is easier to accomplish by hand than renumbering. The sophistocated 
user can examine the BASIC memory map and perform some manual mani- 
pulations to join the programs providing that the line numbers do 
not overlap. Still, the manual append operation is highly prone 

to error . 


1 The Official Polish/ Italian Joke Book, L. Wilde, Pinnacle Books 
New York, N.Y., 1973, p. 17 


* 


In fact, while 
of a KENO game 
seldom exhibit 


several texts detail how the boundary conditions 
lead to predictable outcomes, finished programs 
this property. 
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The APPLE-II BASIC user now has a solution to these needs in 
the for,m of a hand- or tape-loadable program, RENUM/APPEND , described 
herein. The CALL command is used to activate one of three machine 
level programs. The renumber operation (RENUM) requires user speci- 
fication of the original line number range over which renumbering 

is to occur, the new initial line number to be applied to the range, 
i 

and the new line number increment to use. The example below specifies 
that lines 200 to 340 be renumbered starting with 100 and spaced 
by 10 ' s . 

RANGE BEGIN 200 
RANGE END 340 

NEW BEGIN 100 

NEW INCREMENT 10 

A second RENUM entry renumbers the entire program, relieving 
the user of the need to specify the range begin and end parameters. 

The append operation (APPEND) reads the second user (BASIC) program 
off tape with the first in memory. 

Renumber and append error conditions (memory full and line number 
overlap) are detected just as in BASIC. In case of error the user 
is notified and no program alteration occurs. 
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USING RENUM/ APPEND 

1. Load RENUM/APPEND (* 300. 3D4 R) 

Note that the high-order bytes of page 3 are not loaded, preventing 
inadvertant alteration of the interrupt and user function (Y^) 
vectors. The is generated by the MONITOR, not the user. 

2. Load a BASIC program. 

3. To renumber entire program: 

POKE 2, START L User must supply low and high bytes 

POKE 3 \ START H of new STARTing line number. 

POKE 4, INCR L User must supply low and high bytes 

POKE 5 [ INCR H of new line number INCRement . 

CALL 768 (does not alter locations 2-5) 

Note: START L is equivalent to START MOD 256 
START H is equivalent to START / 256 
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5. To append program #2 (larger line numbers) to program #1 
(smaller line numbers): 

(a) Load program #2 

(b) CALL 956 

Be sure you are running the £ape of program #1 as £his 
command will load it. 

(c) If you get a memory full error then use the command 
CALL 973 to recover the original program. 
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ERRORS 

1. If not enough free memory exists to contain the line number 

table during pass 1 of RENUM then the message ’(beep) *** MEM FULL ERI 
is displayed and no renumbering occurs. The same message is 
displayed if not enough free memory exists to hold the product 
of an APPEND. In the case of APPEND, the user will have to type 
the BASIC command CALL 973 to recover his original program. 

The user can free additional memory by eliminating all active 
BASIC variables with the CLR command. 

2. If renumbering results in a line number overlap (detected during 
pass 1 of RENUM) then the message '(beep) *** RANGE ERR' is 
displayed and no renumbering occurs. This error may mean that 
one or more parameters were not specified or were incorrectly 
specif ied . 

CAUTIONS 

1. When appending a program, always load the one with greater 
line numbers first. 

2. The user must be aware that branch target expressions may not 
be renumbered. For example, the statement GO TO ALPHA will 
not be modified by RENUM. The statement GO TO 100 + ALPHA 
will be modified only to reflect the new line number assigned 
to the old line 100. 
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APPLE- 1 1 BASIC STRUCTURE 

An understanding of the internal representation of a BASIC 
program is necessary in order to develope RENUMBER and APPEND 
algorithms. Figure 1 illustrates the significant pointers for a 
program in memory. Variable and symbol table assignment begins at 
the location whofee address is contained in the pointer LOMEM ($4A 
and $4B where stands for hex). This is $800 (2048) on the 

APPLE-I I unless changed by the user with the LOMEM: command. 

A second pointer, PV (Variable Pointer, at $CC and $CD) contains 
the address of the location immediately following the last location 
allocated to variables. PV is equal to LOMEM if no variables are 
actively assigned as is the case after a NEW, CLR, or LOMEM: command. 
As variables are assigned, PV increases. 

The BASIC program is stored beginning with the lowest numbered 
line at the location whose address is contained in the pointer PP 
(Program Pointer, at $CA and $CB) . The pointer HIMEM ($4C and $4D) 
contains the address of the location immediately following the 
last byte of the last line of the program. This is normally the top 
of memory unless changed by the user with the HIMEM: command. 

As the program grows, PP decreases. PP is equal to HIMEM if there 
is no program in memory. Adequate checks in the BASIC insure that 
PV never exceeds PP . This in essence says that variables and program 
are not permitted to overlap. 


Distributed under the Creative Commons License on page 5 


Page 0175 of 0213 




The Woz Wonderbook - 1977 -- DigiBarn Computer Museum - Steve Wozniak, Apple Computer Inc. 


page 7 

Lines of a BASIC program are not stored as they were originally 
entered (in ASCII) on the APPLE-II due to a pre-translation stage. 
Internally each line begins with a length byte which may serve as 
a link to the next line. The length byte is immediately followed 
by a two-byte line number stored in binary, low-order byte first. 

Line numbers range from 0 to 32767. The line number is followed 
by 'items' of various types, the final of which is an ' end-of- 1 ine ' 
token ($01). Refer to figure 2. 

Single bytes of value less than $80 (128) are 'tokens' generated 
by the translator. Each token stands for a fixed unit of text as 
required by the syntax of the language BASIC. Some stand for keywords 
such as PRINT or THEN while others stand for punctuation or operators 
such as ' , ' or ' + ' . 

Integer constants are stored as three consecutive bytes. The 
first contains $B0-$B9 (ASCII '0'-’9') signifying that the next 
two contain a binary constant stored low-order byte first. The line 
number itself is not preceeded by $B0-$B9, All constants are 
in this form including line number references such as 500 in the 
statement GO TO 500. Constants are always followed by a token. 
Although one or both bytes of a constant may be positive (less 
than $80) they are not tokens. 
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Variable names are stored as consecutive ASCII characters with 
the high order bit set. The first character is between $C1 and $DA 
(ASCII 'A'-'Z'), distinguishing names from constants. All names 
are terminated by a token which is recognizable by a clear high-order 
bit. The in string names such as A$ is treated as a token. 

String constants are stored as a token of value $28 followed 
by ASCII text (with high-order bits set) followed by a token of 
value $29. REM statements begin with the REM token ($5D) followed 
by ASCII text (with high-order bits set) followed by the ' end-of-1 ine ' 
token . 


Distributed under the Creative Commons License on page 5 


Page 01 


77 of 0213 




The Woz Wonderbook - 1977 -- DigiBarn Computer Museum - Steve Wozniak, Apple Computer Inc. 


BASIC 

VARIABLES 


BASIC 

PROGRAM 


length 

byte 


page 9 


Figure 1 - MEMORY MAP 


LOMEM (start of variables) 
( $4 A , 4B ) 


pv (Variable Pointer, end of variables) 
( $CC , CD ) 4 



($4C,4D) 


Pointer, start of program) 


of program) 


Figure 2 - LINE REPRESENTATION 



$01 


line number 


items 


' end-of-line ' 
token 
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Constant : 


Figure 3 - ITEMS 

ighj 


low 


hi ! 


$B0-$B9 


value 


positive 

token 


$C1 1 

$C2 


$C3 




negative 

ASCII 


positive 

token 


[ $28 \ $B1 

| | $B2 


$B3 


$29 

quote 

negat ive 


quote 

token 

ASCII 



token 


REM: $5D 


REM 

token 


negative 

ASCII 


1 $01 


end-of-line ' 
token 


Tokens : 


$00-$7F 


GO TO 

- $5F 

GOSUB 

- $5C 

THEN In 

- $24 

LIST 

- $74 

LIST , 

- $75 

STR CON 

- $28 

REM 

- $5D 

EOL 

- $01 


(tokens used by RENUMBER) 
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RENUMBER - THEORY OF OPERATION 

Because of the rigid internal representation of APPLE-II BASIC 

programs (insured by the translator syntax check) writing a renumber 

program was a somewhat easier task than it would have been on many 

small BASIC's. Fortunately all constants in APPLE-II BASIC (in- 
i 

eluding line number references) are preconverted to binary. 

The normal renumber subroutine entry point is RENUM ($308). 

The RENX entry ($300) conveniently sets the renumber range for the 
user such that the entire program will be renumbered. RENUM exten- 
sively uses SWEET16 , the code-saving 16-bit interpretive machine 
built into the APPLE-II. i Occasional 6502 code is interspersed 
throughout RENUM for even greater code efficiency. 

RENUM scans the entire program from beginning to end twice. 
During pass 1 a line number table is built containing all line 
numbers of the program found to be within the renumber range. 

This table begins at the address specified by the BASIC variable 
pointer, PV , and is limited in length by the program pointer, PP . 
Each entry is two bytes long. A memory full error occurs if not 
enough free memory is available for the table. 


1 Byte Maga zi ne , Nov. 1977, pp . 
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As line numbers are entered in the table corresponding new 
line numbers are generated and both- new and old are displayed. 

Should the new line numbers result in an 'out of ascending sequence' 
condition, then a range error occurs and renumbering is terminated. 

It is assumed that the line numbers of the original program are in 
ascending sequence. 

The purpose of pass 2 is to scan the entire BASIC program while 
updating all references of line numbers found in the table to new 
assignments. Aside from the line numbers themselves, the line number 
references sought are identified as constants immediately preceeded 
by one of the following tokens: 

GOTO 
GOSUB 
THEN Ino 
LIST 
LIST 

No other statement normally permitted within an APPLE-II BASIC 
program may contain a line number reference. No errors will occur 
during pass 2. 

Exceptions such as empty line number table and null program 
are properly considered by both passes of RENUM . 
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When APPEND is called, the user program with larger line numbers 
will be in memory and the one with smaller line numbers will be read 
off tape. The current program resides between two pointers, PP and 
HIMEM. HIMEM is preserved and set to the value contained in PP . 

This 'hides’ the original program and prepares to load a new one 
immediately above it in memory. 


The BASIC load subroutine is called and a normal memory full 
error condition will result if not enough free memory is available 
to contain both programs. If this error occurs then the original 
program will still be hidden. Fortunately, it can be recovered by 
calling the tail end of APPEND at $3CD which simply restores HIMEM. 

If the load is successful then HIMEM is restored to its original value 
and both programs will be joined. No line number overlap check is 
performed . 


Original Program 


After Load 


HIMEM Restored 


PP 


HIMEM 




PP *_ 



rr — 

Prog #1 

Prog #1 

— - 

HIMEM 




Prog £2 

Prog #2 

Prog $2 


r 1 

(hidden) 

U T UTTXK 

’ 
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RENUMBER EXAMPLE 



Renumber lines 100-110 


Original 

to start at 150 



spaced by 10 

>L I ST 


> PO KE 

2, 150 MOD 256 

1 

2 

GOT 9 100 
GO S'J 3 103 

>?0KE 

3 1 150 / 256 

3 

IF TRUE THEN 107 



4 

LIST 109,110 

>P0KE 

4, 10 MOD 256 

1 00 

REM 


5, 10 / 256 

1 03 

’EM 

>P0KE 

1 07 

REM 


6 , 100 MOD 256 

1 09 

0 £ f/ 

>P0 KE 

1 1 0 

REM 


7, 100 / 256 

200 

FOR 1=1 TO 10 

>P0KE 

2 1 0 

PRINT I 


8 , 110 MOD 256 

220 

NEXT I 

>P0KE 

230 

GOTO 1 

>POKE 

9, 110/ 256 



>CALL 

776 



1 00- > I 50 
1 0 3 - > 1 6 0 



107-> 

170 



109- > 1 80 

1 1 0 - > 1 90 



>LI ST 




1 

GOTO 150 



2 

G0SU3 160 



3 

IF TRUE THEN 170 



4 

LIST 180,190 



150 

REM 



160 

REM 



170 

REM 



180 

REM 



1 90 

REM 



200 

FOR 1=1 TO 10 



2 10 

PRINT I 



220 

NEXT I 



230 

GOTO I 


IJBW.HilcliH.Hf 
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RENUMBER EXAMPLE (cont) 


Renumber lines 100-110 to start at 
10 spaced by 5 


>P0K£ 

2, 

10 MOD 256 

>P0KE 

3 3 

10 / 256 

>P0KE 

4, 

5 MOD 256 

>?0K£ 

5, 

5 / 256 

>CALL 763 
t-> 1 0 

2- > 15 

3- > 20 
4 — > 2 o 

1 5 0- >30 



1 60- > 35 
1 70->40 
l80->45 
1 90->50 
200- >55 
21 0 - >6 0 
220->65 
230- >70 


>L I ST 


1 0 

GOTO 30 

15 

G0SU3 35 

20 

IF TRUE THEN 40 

25 

LIST 45,50 

30 

REN 

35 

REN 

40 

REM 

45 

REM 

50 

REM 

55 

FOR 1=1 TO 10 

60 

PRINT I 

6 5 

NEXT I 

70 

GOTO 10 
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APPEND EXAMPLE 


>LI3T 






100 

REM 





200 

REM 

THE 

ORIGINAL 

PROG 

RAM 

300 

REM 





>CALL 

956 





>L I ST 






1 0 

HEM 





20 

HEM 

THIS 

PROGRAM 

CAKE 

PROM 

30 

HEM 





1 00 

HEM 





200 

REM 

THE 

ORIGINAL 

PROG 

RAM 

300 

P.EM 
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The Woz Wonderbook -- 

1 977 - 

■ DigiBarn Computer Museum 

-- Steve Wozniak, Apple Computer Inc. 

AP? 

L£- I I 

BASIC RENUMSER/APPE 

:nd subroutines 

9 1 53 A.M.* 1 1/21/1977 


°AGEj 1 

1 

TITLE ’APPLE-II BASIC 

I RENUMBER/ APPEND SUBROUTINES’ 

2 

*********************** 

3 

4 


4 

4 

* 

APPLE- I I BASIC 

♦ 

5 

* 

RE NUMBER AND APPEND 

* 

6 

* 

SUBROUTINES 

4 

7 

* 


4 

8 

4 

RENUMBER 

4 

9 

* 

NEW INITIAL (2*3) 

4 

10 

* 

NEW INCH (4*5) 

4 

1 1 

* 

RANGE BEG (6*7) 

4 

12 

4 

RANGE END (8,9) 

4 

13 

* 


4 

14 

4 

USE RENX ENTRY 

♦ 

15 

4 

POR RENUMBER ALL 

4 

16 

* 


4 

17 

* 

WOZ 11/16/77 

4 

1 3 

* 

APPLE COMPUTER INC. 

4 

19 

* 


4 

20 

************************ 

21 


PAGE 
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6502 EQUATES 

9 j 5 3 A.M., 1 1/21/1977 


22 

SU3TTL 

6502 EQUATES 

23 

ROL 

EPZ 

SO 

24 

ROM 

EPZ 

S 1 

25 

R 1 IL 

EPZ 

S 16 

26 

R 1 IH 

EPZ 

S 17 

27 

HI.MEM 

EPZ 

S4C 

28 

PPL 

EPZ 

SC A 

29 

PVL 

EPZ 

see 

30 

MEMFULL 

EQU 

SE363 

31 

PRDEC 

EQU 

SE5 13 

32 

RANG ERR 

EQU 

SEE68 

33 

LOAD 

EQU 

SFODF 

34 

S'J 1 6 

EQU 

SF639 

35 

CP.OUT 

EQU 

SFD8E 

36 

COUT 

EQU 

SFDED 

37 


PAGE 



PAGEj 2 


LOV-ORDER S V 1 6 AO 3YT£ 
HI -ORDER. 

LOV-ORDER SWI6 Rll 3YJ 
H I -ORDER* 

SASIC HIMEM POINTER. 
SASIC PROG POINTER. 
3ASIC VAR POINTER. 
SASIC MEM FULL ERROR. 
SASIC DECIMAL PRINT SB 
BASIC RANGE ERROR. 
SASIC LOAD SU3R. 

SWEET I 6 ENTRY. 

CAR RET SU3R. 


CHAR OUT SU3R. 
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1/1977 

SWEET 16 

EQUATES 

PAGE t 3 

38 

SUBTTL 

SWEET 1 6 

EQUATES 


39 

ACC 

EPZ 

SO 

SVEET16 ACCUMULATOR. 

40 

NEVLOV 

EPZ 

S 1 

NEW INITIAL LNO. 

41 

fJEVINCR 

EPZ 

S 2 

NEW LNO INCH. 

42 

LNLOV 

EPZ 

S3 

LOW LNO OF REMUM RANGE 

43 

LNHI 

EPZ 

S4 

HI LNO OF RENUM RANGE. 

44 

T3LSTRT 

EPZ 

55 

LNO TABLE START. 

45 

T3LNDXI 

EPZ 

56 

PASS I LMO TBL INDEX. 

46 

T3LIM 

EPZ 

S 7 

LNO TA3LE LIMIT. 

47 

SCR8 

EPZ 

58 

SCRATCH REG. 

48 

HMEM 

EPZ 

58 

H I MEM (END OF PRGM) • 

49 

SCR9 

EPZ 

59 

SCRATCH REG. 

50 

PRSNDX 

EPZ 

59 

PASS I PROG INDEX. 

5 1 

PRGNDX1 

EPZ 

SA 

ALSO PROG INDEX. 

52 

NEVLM 

EPZ 

53 

NEXT * NEW LNO * . 

53 

NEWLN 1 

EPZ 

SC 

PRIOR ’NSW LNO* ASSIGN 

54 

TBLND 

EPZ 

56 

PASS 2 LNO TABLE END. 

55 

PHGNDX2 

EPZ 

57 

PASS 2 PROG INDEX. 

56 

CHRO 

EPZ 

59 

ASCII ’O’. 

57 

CHRA 

EPZ 

5 A 

ASCII ‘A*. 

58 

MODE 

EPZ 

50 

CONST/LNO MODE. 

59 

T3LNDX2 

EPZ 

5B 

LNO TBL IDX FOR UPDATE 

60 

OLDLN 

EPZ 

5D 

OLD LNO FOR UPDATE. 

61 

5TRC0N 

EPZ 

53 

BASIC STR CON TOKEN. 

62 

REM 

EPZ 

SC 

BASIC REM TOKEN. 

63 

R 1 3 

EPZ 

SD 

SWEET 16 REG 13 CCPR R« 

64 

THEM 

EPZ 

SD 

BASIC THEN TOKEN. 

65 

LIST 

EPZ 

5D 

3ASIC LIST TOKEN. 

66 

SCRC 

EPZ 

SC 

SCRATCH REG FOR APPENB 

67 


PAGE 
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68 

SU3TTL 

APPLE- I I 3ASIC RENUMBER SUBROUTINE - PASS 1 





69 


ORG 

$300 


0300 l 

20 

89 

F6 

70 

RENX 

JSR 

SW16 

OPTIONAL RANGE ENTRY. 

0303* 

BO 



71 


sua 

ACC 


030 A l 

33 



72 


ST 

LNLOtf 

SET LNLOV-O, 

0305i 

34 



73 


ST 

LNHI 

LNHI»$FFFF 

0305 * 

F4 



74 


DCR 

LNHI 


030 7* 

00 



75 


RTN 



0308* 

20 

89 

F6 

76 

RENUM 

JSR 

SVI6 


030B* 

18 

4C 

00 

77 


SET 

SCR8.*HIMEM 


03 OE* 

68 



78 


LDD 

• SCR3 

BAS I C HIMEM POINTER 

Q30F* 

38 



79 


ST 

HMEM 

TO HMEM. 

0310* 

19 

CE 

00 

80 


SET 

SCR9* PVL+2 


0^13* 

C9 



81 


POPD 

• SCR9 

BASIC VAR PTR TO 

0314* 

35 



82 


ST 

T3LSTRT 

TBLSTRT AND TBLNDX1 • 

0315* 

36 



83 


ST 

T3LNDX1 


0316* 

21 



84 


LD 

NEVLOW 

COPY NEWLOW (INITIAL) 

0317* 

38 



85 


ST 

NEWLN 

TO NEWLN. 

0318* 

3C 



86 


ST 

NEWLN I 


0319* 

C9 



87 


POPD 

• SCR9 

BASIC PROG PTR 

03 1 At 

37 



88 


ST 

TBLIM 

TO TBLIM 

0318* 

39 



89 


ST 

PRGNDX 

AMD PRGNDX, 

03 1C * 

29 



90 

PAS SI 

LD 

PRGNDX 


03 ID* 

D8 



91 


CPR 

HMEM 

IF PRGNDX >* HMEM 

03 IE* 

03 

46 


92 


BC 

PASS 2 

THEN DONE PASS I. 

0320* 

3A 



93 


ST 

PRGNDXI 


0321 * 

26 



94 


LD 

TBLNDX1 


0322* 

EO 



95 


INR 

ACC 

IF < 2 BYTES AVAIL IN 

0323* 

D7 



96 


CPR 

TBLIM 

LNO TABLE THEN RE TUB 

0324* 

03 

38 


97 


BC 

MERR 

WITH ’MEM FULL’ MSG. 

0326* 

4A 



98 


LD 

•PRGNDXI 


0327* 

A9 



99 


ADD 

PRGNDX 

ADD LEN BYTE TO 

0328* 

39 



100 


ST 

PRGNDX 

PROG INDEX. 

0329* 

6A 



101 


LDD 

•PRGNDXI 

LINE NUMBER. 

032A t 

D3 



102 


CPR 

LNLOV 

IF < LNLOW THEN 

0323* 

02 

2A 


103 


BNC 

PIB 

GO TO P l 3. 

03 2D* 

D4 



104 


CPR 

LNHI 

IF > LNHI THEN 

03 2E* 

02 

02 


10S 


BNC 

PI A 

GO TO PIC. 

0330* 

07 

30 


106 


BNZ 

PtC 


0332* 

76 



107 

PI A 

STD 

•TBLNQXI 

ADD TO LNO TABLE. 

033 3* 

00 



108 


RTN 



0334* 

A5 

01 


109 


LDA 

ROH 

*** 6502 CODE *** 

0336* 

A6 

00 


1 10 


LDX 

ROL 


0338* 

20 

IS 

E5 

1 1 1 


JSR 

PRDEC 

PRINT OLD LNO NEB 

033B* 

A9 

AD 


1 (2 


LDA 

• SAD 

(R0,R1 l ) IN DECIMAL. 

033D* 

20 

ED 

FD 

113 


JSR 

COOT 


0340* 

A9 

3E 


1 1 4 


LDA 

# S3E 


0342* 

20 

ED 

FD 

1 IS 


JSR 

COUT 


0345* 

A5 

l 7 


1 16 


LDA 

R1 IH 


0347* 

A6 

16 


117 


LDX 

R 1 IL 


0349* 

20 

13 

£5 

1 18 


JSR 

PRDEC 


034C* 

20 

8E 

FD 

119 


JSR 

CROUT 


034F* 

20 

8C 

F6 

120 


JSR 

SVl.j+3 

*** END 6502 CODE **♦ 

0352* 

2B 



121 


LD 

NEWLN 
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APPLE 

-11 BASIC 

RE N'JMB. 

9 1 5 3 A 

.M. 

, 1 1/21/1977 


0353 » 

3C 


122 


ST 

0354j 

A2 


123 


ADD 

0355 « 

3B 


124 


ST 

03561 

OD 


125 


NUL 

03571 

D! 


126 

P13 

• CPR 

035 St 

02 

C2 

127 


BMC 

035 At 

00 


128 

RERR 

RTM 

035Bt 

4C 

68 

EE 1 29 


JMP 

035E t 

00 


130 

MERR 

RTM 

035F t 

4C 

63 

£3 131 


JMP 

0362 t 

EC 


132 

PIC 

INR 

036 3 t 

DC 


133 


CPR 

0364 1 

02 

F4 

1 34 


BMC 




133 


PAGE 


:r subroutine 

- PASS 1 

PAGEt 5 

NEVLN 1 

COPY NEVLN TO NEVLN 1 

NEVIMCR 

AND INCH NEVLN BY 

NEVLM 

nevincr. 

(WILL SKIP NEXT 1 NST> • 

NEVLOW 

IT LOV LNO < NEVLOV 

PASS 1 

THEN RANGE ERR. 
PRINT * RANGE ERR* MSG 

RANGE HR 

AND RETURN. 

PRINT 'MEM FULL* MSG 

MEKFULL 

AND RETURN. 

NEVLM 1 

IF HI LNO «■ MOST RECf 

NEVLM 1 
RERR 

NEVLN THEN RANGE ERR 
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136 

SU3TTL 

APPLE- I I BASIC RENUMBER SUBROUTINE - PASS 2 

0366i 

19 30 

00 

137 

PASS2 

SET 

CHR0#S80 

ASCII ‘O' 

0369i 

IA Cl 

00 

138 


SET 

CHRA#$C! 

ASCII ’A* 

036C l 

27 


139 

P2A 

LD 

PRGNDX2 


036D t 

08 


140 


CPR 

HMEM 

IF PROG INDEX » HIMEM 

036E t 

03 63 


141 


3C 

DONE 

THEN DONE PASS 2. 

0370* 

E 7 


142 


INR 

PRGNDX2 

SKIP LEN BYTE. 

037l» 

67 


143 


LOO 

•PRGNDX2 

LINS NUMBER. 

03 72 * 

3D 


144 

UPDATE 

ST 

OLDLN 

SAVE OLD LNO. 

0373* 

25 


145 


LD 

TBLSTRT 


0374 * 

3B 


146 


ST 

TBLNDX2 

INIT LNO TABLE INDEX. 

03 75* 

21 


147 


LD 

NEVLOV 

I NIT NEVLN 1 TO NEVLOV. 

03 76i 

1C 00 

00 

148 


SET 

NEVLN 1 , 0 

(WILL SKIP NEXT 2 INS* 




149 


ORG 

*-2 


03771 

2C 


150 

UD2 

LD 

NEVLN 1 


03 78 « 

A2 


151 


ADD 

NEV1NCR 

ADD INCH TO NEVLN 1. 

03 79 J 

3C 


152 


ST 

NEVLN 1 


037AI 

28 


153 


LD 

T8LNDX2 

IF LNO TSL IDX ■ TBLND 

03 731 

B6 


154 


SUB 

TBLND 

THEN DONE SCANNING 

03 7C » 

03 07 


155 


3C 

UD3 

LNO TABLE. 

03 7EI 

6B 


156 


LDD 

•TBLNDX2 

NEXT LNO FROM LNO TAB* 

03 7F* 

BO 


157 


SUB 

OLDLN 

LOOP TO UD2 IF NOT SAB 

0380s 

07 F5 


158 


SNZ 

UD2 

AS OLDLN. 

03821 

C7 


159 


POPD 

•PRGNDX2 

REPLACE OLD LNO WITH 

03831 

2C 


160 


LD 

NEVLN! 

CORRESPONDING NEV LB 

0384* 

77 


16 1 


STD 

•PRGNDX2 


0385» 

IB 28 

00 

162 

UD3 

SET 

STRCON# $28 

STR CON TOKEN. 

03881 

1C 00 

00 

163 


SET 

MODE# 0 

< SKI PS NEXT 2 I NSTR* S* 




164 


ORG 

*-2 


0389 1 

67 


165 

GOTCON 

LDD 

•PRGNDX2 


03 8AI 

FC 


166 


DCR 

MODE 

IF MODE * 0 THEN UPDAJT 

03881 

08 ES 


167 


BMI 

UPDATE 

LNO REF. 

03 8D * 

47 


168 

ITEM 

LD 

•PRGNDX2 

BASIC ITEM. 

03 BE I 

D9 


169 


CPR 

CHRO 


03 8F t 

02 09 


170 


3NC 

CHKTOK 

CHECK TOKEN FOR SPEC I* 

0391 » 

DA 


171 


CPR 

CHRA 

IF »■ *0* AND « * A* TB 

03921 

02 F5 


172 


BN C 

GOTCON 

SKIP CONST OR UPDATB 

0394i 

F7 


173 

SKPASC 

DCR 

PRGNDX2 


03951 

67 


174 


LDD 

•PRGNDX2 

SKIP ALL NEG BYTES OF 

0396* 

05 FC 


175 


BM 

SKPASC 

STR CON# REM# OR NAB 

0398* 

F7 


176 


DCR 

PRGNDX2 


0399* 

47 


177 


LD 

•PRGNDX2 


039A* 

OB 


1 78 

CHKTOK 

CPR 

STRCOM 

STR CON TOKEN? 

039B* 

06 F 7 


179 


BZ 

SKPASC 

YES# SKIP SUBSEQUEN* 

03 9D* 

1C 50 

00 

180 


SET 

REM# S5D 


03A0 1 

DC 


181 


CPR 

REM 

REM TOKEN? 

03A1 * 

06 FI 


182 


az . 

SKPASC 

YES# SKIP SUBSEQUEN* 

03A3* 

08 13 


183 


BM 1 

CONTST 

GOSUB# LOOK FOR LNO. 

03AS* 

FO 


184 


DCR 

R 1 3 


03A6 l 

FD 


185 


DCR 

R13 

CTOKEN S5F IS GOTO) 

03A7 * 

06 OF 


186 


az 

CONTST 

THEN LNO# LOOK FOR LNO. 

03A9* 

ID 24 

00 

187 


SET 

THEN, $24 


03AC* 

00 


188 


CPR 

THEN 


03AD* 

06 09 


169 


az 

CON .‘ST 

TH-N LNO# LOOK FOR LNO. 
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PAGE l 7 

03 AF i 

FO 


19Q 

DC R 

ACC 


03301 

06 

BA 

191 

32 

P2A 

EOL (TOKEN $01)7 

03321 

10 

74 00 

192 

SET 

LIST, $74 


0335 I 

BO 


193 

SU3 

LI ST 

SET MODE * 0 IF LIST 

0336* 

09 

01 

194 

3NMI 

C0NTS2 

OR LIST COMMA ($73, 

03331 

aq 


195 CONTST 

SU3 

ACC 

CLEAR MODE FOR LNO 

0339* 

3C 


196 C0NTS2 

ST 

MODS 

UPDATE ClfECK. 

033A« 

01 

01 

197 

BR 

ITEM 

CHECK NEXT BASIC ITEM 




198 

PAGE 
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199 SU3TTL 

APPLE- 1 

1 BASIC APPEND 

i SUBROUTINE 

033C » 

20 

89 

F6 

200 APPEND 

J SR 

SV16 


033F I 

1C 

4£ 

00 

201 

SET 

SCRCjHIMEM+2 


03C2 1 

cc 



202 

POPD 

♦ SCRC 

SAVE HI MEM. 

03C3 1 

38 



203 

ST 

HMEM 


03C4 » 

19 

CA 

00 

204 

SET 

SCR9/PPL 

. 

03C7 t 

69 



205 

LDD 

♦ SCR9 

SET HIMEM TO PRESERVE 

03CS * 

7C 



206 

STD 

♦ SCRC 

PROGRAM. 

03C9 t 

00 



207 

RTN 



03CAI 

20 

DF 

FO 

208 

JSR 

LOAD 

LOAD FROM TAPE. ’ 

03CD I 

20 

89 

F 6 

209 

JSR 

SU 1 6 


03DO I 

CC 



210 

POPD 

♦ SCRC 

RESTORE HIMEM TO SHOW 

03D1 t 

28 



211 

LD 

KMEM 

BOTH PROGRAMS 

03D2 t 

7C 



212 

STD 

♦ SCRC 

(OLD AND NEW). 

03D3 t 

od 



213 DONE 

RTN 


RETURN. 

03D4I 

60 



214 

RTS 




******** SUCCESSFUL ASSEMBLY! NO ERRORS 
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CROSS-REFERNCS t 

Ai- RLE- I I BAS I C RENUKSE 

R/ APPEND SUBROUTINES 

fZC 

0000 

0071 

0 C 1 1 ■ 3 

0 190 

0195 



ND 

033C 







c:;.-:rox 

0 3 9 A 

0170 






CM TO 

0009 

0137 

0169 





CHRA 

OOOA 

0138 

017 1 





C0.MTS2 

03B9 

0194 






C ' N T S T 

02E8 

0133 

0186 

01S9 




C JT 

FDED 

01 13 

0115 





C" OUT 

FD3E 

0119 






I ■ * ■ z 

03D3 

0141 






GO . COM 

0389 

01 72 






Hi. CM 

004C 

0077 

0201 





o:;-i 

0008 

0079 

009 1 

0 1 40 

0203 

02 1 l 


I V£M 

03 8D 

0197 






LIST 

GOOD 

0192 

0193 





L.JHI 

0004 

0073 

0074 

0104 




L'JLOV 

0003 

0072 

0102 





LOAD 

F ODF 

0208 






i-rci-ii-mL 

E36B 

0131 






LEAR 

035E 

0097 






LODE 

OOOC 

0163 

0166 

0196 




NCVINCR 

0002 

0123 

015 l 





r- VLN 

0003 

0085 

0121 

0124 




KOWLNl 

OOOC 

0036 

0122 

0132 

0133 

0148 0150 0152 

0160 

NEW LOW- 

0001 

0084 

0126 

0147 




OLOLN 

OOOD 

0144 

0157 





PI A 

0332 

01 05 






pia 

0357 

0103 






?tc 

0362 

0106 






POA 

036C 

0191 






PASS I 

03 !C 

0127 






PA S S 2 

0366 

C092 






FPL 

OOCA 

0204 






FT DEC 

£5 IB 

01 1 1 

0118 





Pr.GN'DX 

0009 

0089 

0090 

0099 

0 100 



-■■■ gndxi 

OOOA 

0093 

0093 

0101 




frg:jdx2 

0007 

0 139 

0 142 

0143 

0159 

0161 0165 0168 

0173 0174 0176 0177 

F7L 

OOCC 

0080 






ROH 

0001 

0109 






HOL 

0000 

0110 






R1 1 H 

0017 

0116 






= 1 1 L 

0016 

0117 






P.l 3 

OOOD 

0184 

0135 





R* NGERH 

EE6 8 

0129 






73“ 

- i « 

OOOC 

0180 

013 1 





RE HUM 

0303 







RENX 

0300 







RE RE 

035 A 

0134 






SCR8 

0003 

0077 

0 C 78 





SCR9 

0009 

OC 8 0 

0031 

0087 

0204 

0205 


SC RC 

OOOC 

0201 

0202 

0206 

0210 

0212 


SKPP.SC 

0394 

0175 

0179 

0132 




STP.CONt 

0003 

0162 

0178 





SV 1 6 

FS8 9 

0070 

0076 

0120 

0200 

0209 


T3LIM 

0007 

0088 

0096 





TBl-N D 

0006 

0154 






7SLN0X1 

0006 

0033 

0094 

0107 




,VD>*2 

00 33 

0146 

0153 

0156 




-pr.STRT 

0 005 

00 3 2 

0145 





7’EN 

OOOD 

0187 

0 138 






Distributed under the Creative Commons License on page 5 




The Woz Wonderbook - 1977 -- DigiBarn Computer Museum - Steve Wozniak, Apple Computer Inc. 


CROSS REFERENCE l APPLE - I I 
UD2 0377 0158 

UD3 0385 0155 

UPDATE 0372 0167 


BASIC RENUMBER/ APPEND SUBROUTINES 


Distributed under the Creative Commons License on page 5 




The Woz Wonderbook - 1977 -- DigiBarn Computer Museum - Steve Wozniak, Apple Computer Inc. 


This page is not part of the original Wonderbook 


Distributed under the Creative Commons License on page 5 


Page 0196 of 0213 




The Woz Wonderbook - 1977 -- DigiBarn Computer Museum - Steve Wozniak, Apple Computer Inc. 


The Woz Wonderbook 


DOCUMENT 



This page is not part of the original Wonderbook 


Distributed under the Creative Commons License on page 5 







The Woz Wonderbook - 1977 -- DigiBarn Computer Museum - Steve Wozniak, Apple Computer Inc. 


This page is not part of the original Wonderbook 


Distributed under the Creative Commons License on page 5 


Page 0198 of 0213 




The Woz Wonderbook - 1977 -- DigiBarn Computer Museum - Steve Wozniak, Apple Computer Inc. 


The Woz Wonderbook 

References 

David T Craig • 03 November 2004 


Here is a list of Apple Computer and Apple-II computer technical and historical 
reference materials that may prove beneficial to readers of the Woz Wonderbook 
who want to know more about the details behind this document and the Apple-II 
computer in the late 1970' s. 

These more polished references originated in publicly published Apple Computer 
documents, magazine articles, and Apple-II enthusiast private materials. 

David T Craig (shirlgato@cybermesa.com) has digital copies of all of these 
materials. These materials may possibly be provided with DigiBarn's Woz 
Wonderbook digital materials via its web site or a CD. 

SYSTEM DESCRIPTION: THE APPLE-II 

Steve Wozniak • BYTE Magazine • May 1977 

This description of the Apple-II computer by its main designer provides a 
concise description of this computer's technical features. 

MICROCOMPUTER FOR USE WITH VIDEO DISPLAY 

Steve Wozniak • US Patent 4,136,359 • 23 January 1979 

This is Apple Computer's patent for the Apple-II computer assigned to Steve 
Wozniak. Dry reading, but has some good Apple-II technical information. 
Available on the US Patent Office web site http://www.uspto.gov/patft/. 

APPLE-II HISTORY 

Steven Weyhrich • http://apple2history.org/history/ • 1991-2003 

This great web site contains a cornucopia of accurate Apple-II historical 
information. If you want to learn about the origins of Apple Computer and the 
Apple-I and Apple-II computers, this is the place to go. Also available on the 
internet at http: //www. bli nkenli ghts . com/classi ccmp/apple2 hi story . html . 

SWEET-16: THE 6502 DREAM MACHINE 

Steve Wozniak • BYTE Magazine • November 1977 

This is Steve Wozniak's comprehensive description of his SWEET-16 16-bit byte- 
code "meta microprocessor" interpreter built into the Apple-II Integer BASIC 
ROM. Wozniak's Apple-II system description in BYTE May 1977 also has a short 
description of SWEET-16. 
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APPLE-II REFERENCE MANUAL ("RED BOOK") 

Apple Computer • January 1978 

This is Apple Computer's first published technical reference manual for the 
Apple-II computer. It is commonly referred to as the "Red Book" because it has a 
red cover. The Red Book's contents (155 pages) were based on the Woz Wonderbook 
but in a more polished format, but is not as comprehensive or readable as the 
later Apple-II reference manuals. A good PDF scan of the Red Book can be found 
on the internet at http://bitsavers.org/pdf/apple/ along with several other 
older Apple-II manuals. 

APPLE-II REFERENCE MANUAL 

Apple Computer • 1979 • Document # 030-0004-01 

This is Apple Computer's first revision of the Apple-II Red Book. This 275 page 
manual is much improved over the Red Book and tremendously improved over the Woz 
Wonderbook materials. Note the Apple document number (030-0004-01) which 
indicates this is a technical manual (030), is document number 4 (0004), and is 
revision 1 (01) which means this is Apple's 4th published manual. 

APPLE-II MINI MANUAL 

Apple Computer • 1977-1978 

This 68 page manual from Apple Computer appears to be the predecessor to the Red 
Book from 1978. As such, I would date this manual in the 1977-1978 range. More 
complete and more detailed than the Woz Wonderbook, but not as good as the Red 
Book. A good PDF scan of this manual can be found on the internet at 
http : / / b i t savers . org/ pdf /apple/ . 

THE WOZ PAK ][ 

Call-A. P . P . L . E . Magazine • 15 November 1979 

This 138 page document contains a large number of technical documents about the 
Apple-II computer courtesy of Apple Computer and Call-A. P . P . L . E . magazine. This 
is better organized and more comprehensive than the Woz Wonderbook or the Red 
Book, but not as good as the Apple-II Reference Manual from 1979. Contains a 
detailed article on the Apple-II floating point package. 

PEEKING AT CALL-A.P.P.L.E. 

Call-A. P.P.L.E. Magazine • 1978 and 1979 

This 2 volume set (volume 1 dated 1978 has 92 pages, volume 2 dated 1979 has 206 
pages) contains lots of Apple Computer re-produced technical information and 
original Cal 1 -A. P . P . L . E . magazine information. Well worth reading. 
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PROGRAMMER'S AID #1: 

INSTALLATION AND OPERATING MANUAL 

Apple Computer • 1978 ♦ Document # 030-0026-01 

This 113 page Apple manual describes the special programming built into the 
Programmer's Aid #1 ROM chip (there was never an Aid #2 chip AFAIK) . Includes 
several 6502 assembly language programs by Steve Wozniak which used his SWEET-16 
16-bit byte-code interpreter. Includes more polished information for the Integer 
BASIC renumber and append programs described in the Woz Wonderbook. 

FLOATING POINT ROUTINES FOR THE 6502 

Steve Wozniak & Roy Rankin 

Dr. Dobb's Journal of Computer Calisthenics & Orthodontia • August 1976 

This is an article on the Apple-II floating point package pre-dating the Woz 
Wonderbook. Has more details about this package than the Wonderbook. Available 
on the internet at www.strotmann.de/twiki/bin/view/APG/AsmAppleFloatingPoint. 
Concerning authorship of this floating point package, web site 
http://linux.monroeccc.edu/~paulrsm/dg/dg32.htm says Wozniak wrote the core 
package routines (e.g. ADD) and Rankin wrote the transcendental routines (e.g. 
LOG) . 

DISASSEMBLER PROGRAM FOR THE 6502 

Steve Wozniak & Allen Baum 

Dr. Dobb's Journal of Computer Calisthenics & Orthodontia • September 1976 

This is an article on the Apple-II 6502 disassembler pre-dating the Woz 
Wonderbook. Available on the internet at http://users.telenet.be/kiml- 
6502/kun/il4/p06. html . 

THE APPLE II PLUS PERSONAL COMPUTER SYSTEM 

Apple Computer • November 1981 

This is Apple Computer's data sheet for the Apple-II Plus computer, the 
successor to the Apple-II computer. Shows how some of the enhancement ideas 
documented in the Woz Wonderbook and the Red Book were implemented by Apple. 

PRELIMINARY APPLE BASIC USERS MANUAL 

Apple Computer • October 1976 

This 16 page manual seems to be Apple Computer's first user manual for its 
Apple-II Integer BASIC programming language. The Woz Wonderbook is very lacking 
in Integer BASIC information for the user. A good PDF scan of this manual can be 
found on the internet at http://bitsavers.org/pdf/apple/. 
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APPLE TECH NOTES 

Apple Computer and the International Apple Core (IAC) • July 1982 

This 500 page document contains an extensive collection of Apple Computer 
technical notes from 1982 covering the Apple-II and Apple-Ill computer families. 
Many Apple-II hardware, software and documentation errata details are here. 
Includes articles about the Apple-II mi ni -assembler and cassette interfacing. A 
treasure trove of early Apple system technical information. 

APPLE-II SYSTEM MONITOR ROM LISTING 

Apple Computer • 1977 

For detailed information about the internal software workings of the Apple-II 
computer the source listing for the Apple-II System Monitor ROM is the key. 
Available in the Apple-II reference manual dated 1979 or on the internet at 
http : //members . buckeye -express . com/marksm/6502/ . 

STEVE WOZNIAK INTERVIEW: HOMEBREW TO CHAMPAGNE 

Apple Orchard Magazine • Spring 1981 

An early interview with Steve Wozniak in which he provides contemporary details 
about Apple Computer's origins and early days. 

STEVE WOZNIAK INTERVIEW: THE APPLE STORY 

BYTE Magazine • December 1984 

A great interview with Steve Wozniak by BYTE magazine with lots of Apple 
Computer and Apple-II information. Also includes a retrospective on SWEET-16, 
Wozniak's 16-bit byte-code interpreter. This is available on the internet at 
http: //apple2hi story . org/museum/arti cles/byte8412/by te8412 . html . 

STEVE WOZNIAK INTERVIEW: STEVE WOZNIAK UNBOUND 

SlashDot Interview • January 2000 
http : //slashdot .org/i ntervi ews/00/01/07/ 1124211 . shtml 

This 2000 interview of Steve Wozniak contains some good 24 year recollections 
about Apple Computer's origins and early years. 
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The Woz Wonderbook 

Bill Goldberg Interview 

Bruce Darner • 19 April 2004 


Source : 

http : //www. digi barn . com/collect ions/ books/ woz -wonder book/goldberg-on- woz -won 

derbook.mp3 (3.3 MB file) 

Transcript created by 

David T Craig <shi rlgato@cybermesa . com> -- 02 November 2004 

Interviewer: Bruce Darner <bdamer@digitalspace.com> 

Interviewee: Bill Goldberg <bi llau@coastsi de . net> 

Interview duration: 3:39 minutes 


BACKGROUND 

The "Woz Wonderbook" was a compilation of notes from Steve Wozniak's filing 
cabinet that served as the first documentation and technical support manual 
for the Apple II computer (before the more famous "red book" of January 
1978). Bill Goldberg, longtime Apple employee, donated his copy of the 
Wonderbook to the DigiBarn (thanks Bill!). At the time he was at Apple there 
was only a single copy of this thick binder of photocopied notes, diagrams 
and such to be found in the Apple library. Bill, being in the technical 
support role and a natural pack rat, made a copy of the Wonderbook. 


INTERVIEW TRANSCRIPT 


BILL GOLDBERG: Here it's faded. This is the Woz Wonderbook. And its 

disorganized but I found the copy of this in the Apple library 
and immediately made some copies of it. 


BRUCE DAMER: So this was before the Red Book? 


BILL GOLDBERG: 


This is what the Red Book was made from. 


BRUCE DAMER: 
BILL GOLDBERG: 
BRUCE DAMER: 


Oh gosh. 

Actually, I've got one or two Red Books for you. 
Wonderful, because the Red Book we have is on loan. 


BILL GOLDBERG: Actually, in Service Engineering we would get the leftovers of 

things. People would say "we don't need any more of this". So we 
had two cases of Red Books and a few of us in the department 
said "Hmm, these are worth something" and we divided them up. 
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BRUCE DAMER: 
BILL GOLDBERG: 

BRUCE DAMER: 
BILL GOLDBERG: 

BRUCE DAMER: 
BILL GOLDBERG: 
BRUCE DAMER: 
BILL GOLDBERG: 
BRUCE DAMER: 
BILL GOLDBERG: 

BRUCE DAMER: 
BILL GOLDBERG: 

BRUCE DAMER: 

BILL GOLDBERG: 

BRUCE DAMER: 
BILL GOLDBERG: 
BRUCE DAMER: 
BILL GOLDBERG: 

BRUCE DAMER: 
BILL GOLDBERG: 
BRUCE DAMER: 


Wow. 

So, anyway, in here you will find some of the stuff typed, a 
number of different articles, but you will also find, 
unfortunately the xerox did the best job it could and it has 
faded over the years, but there's handwritten notes. 

So Woz wrote these notes? 

Uh-Hmm [yes]. Here's a listing with some hand disassembly and 
his comments. Article on the disassembler. 

So this is Woz's hand notes? 

Well, it's hand notes, it's various articles. 

Here's a disassembled disassembler. 

Uh ha. But all written by hand. 

Written by hand. Yup. 

And let's see. Here for instance, here's an article on the 
cassette system. 

Ok. 

We (he?) gave up on using the cassette, but this actually is his 
handwritten notes on the cassette system. So ... 

This is a big book. He must have sat for hours writing this 
down . 

You know, somebody just went through a file drawer of his notes 
and put it in a binder. 

Oh. 

And there was only one of these in the Apple library. So ... 

Wow. 

Either I or one of my colleagues checked it out and made some 
copies because this was going to disappear into obscurity. 

This is the Woz Wonderbook? 

This is what it was called on the spine. 

This would have been [19] 77? 
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BILL GOLDBERG: 

BRUCE DAMER: 
BILL GOLDBERG: 

BRUCE DAMER: 
BILL GOLDBERG: 
BRUCE DAMER: 
BILL GOLDBERG: 


Uhm, actually the first article on the first of this has a date 
of 9/20/77 [20 September 1977]. So, but this is just a 
collection of a lot of different ... this actually goes into 
explaining . . . 

Yeah . . . 

Yup. The detail that, you know ... I'm sure some of this is 
hideously proprietary but who will ever know. 

Well, not at this point. 

Ok, so that's the Woz ... 

Woz . . . 

Actually, it won't hurt to write on the spine ... here take a 
pen, so its in your handwriting. That was my handwriting, so 
there's nothing special about that. 

### 
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Steve Wozniak, Co -founder Apple 


Steve Wozniak circa 1977 and 1981 
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The End 
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